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Titus - Larsen 

INTERFACCIAMENTO 

DELL'APPLE 

Una serie di reali e 
sperimentati circuiti 
d'interfaccia e, in più. il 
software (in BASIC) 
necessario per collegare 
un Apple con il mondo 
esterno e controllare 
fenomeni come: 
temperatura, pressione, 
soglie luminose ...; 
comunicare con altri 
calcolatori, modem, 
stampanti... 208 pagine 
Codice 334 B L. 14.000 


Frèdéric Lévy 
ALLA SCOPERTA 
DELL’APPLESOFT 

Un validissimo aiuto per 
quanti si accingono a 
tradurre in istruzioni 
problemi di matematica, 
archiviazione dati, 
ricerca file, disegni 
grafici, istogrammi e 
animazione figure 
Sebbene il BASIC scelto 
sia l'Applesoft. il volume 
è utilizzabile anche per 
altri calcolatori 
130 pagine. 

Codice 400 H L. 12.500 


La Biblioteca 
che fa testo 


CEDOLA DI COMMISSIONE LIBRARIA 


James W Coffron 


APPLE TUTTO FARE 
Collegamenti e 
progetti 

La conoscenza 
dell'hardware. come 
indispensabile mezzo 
per arrivare ad effettuare 
le più complesse 
operazioni di controllo: 
acquisire dati, elaborarli, 
emettere segnali di 
comando Un libro che. 
con semplicità, insegna 
a tutti quanto è facile 
accendere e spegnere 
una lampadina "da 
programma" 208 pagine 
Codice 334 D L. 18.000 


Bréaud-Pouliquen 
APPLE MEMO 

Sintassi dei comandi, 
codici dei caratteri, 
messaggi d'errore, 
linguaggio macchina, 
indirizzi utili... Un libro 
destinato a stare in 
permanenza a fianco 
degli utilizzatori di Apple 
Più, una raccolta di 
trucchi che è 
indispensabile 
conoscere 146 pagine 
Codice 340 H L. 15.000 


Stanley R Trost 
BASIC SU APPLE 
Programmi 
in pochi minuti 

Più di 65 programmi per 
risolvere problemi che 
vanno dall'economia 
domestica alle 
applicazioni 
commerciali, ai calcoli 
statistici, alla creazione 
e gestione degli archivi 
E. nelle Appendici, una 
serie di sottoprogrammi 
d'uso generale. 184 pagine 
Codice 532 H L. 14.000 

Bréaud-Pouliquen 
LA PRATICA 
DELL'APPLE 

Suddiviso in 3 capitoli. i 
il volume illustra: È 

"Il Sistema Apple II" M 

hardware e software: 

"Il BASIC Applesoft" 
con istruzioni. 
sottoprogrammi. 
operatori aritmetici e 
logici: "Il disegno e la 
grafica" con le zone di 
memoria RAM e le 
funzioni grafiche Tutto 
con numerosi esempi ed 
esercizi con soluzione 
130 pagine 

Codice 341 D L. 10.000 
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DITORIALE 



Quando il personal dà spettacolo 


di Riccardo Paolillo 

Un fatto certamente prevedibile data la diffusione 
ormai di massa di personal e home computer, sta 
nonostante tutto stupendo e interessando gli osserva¬ 
tori più attenti: l’utilizzo che viene fatto in modo 
sempre più frequente dei piccoli calcolatori come 
strumento di spettacolo. 

Gli esempi a questo proposito sono ormai numero¬ 
sissimi e sotto gli occhi di tutti: dalle trasmissioni 
televisive dedicate al personal che ormai molte reti 
propongono e in cui la divulgazione deve essere orga¬ 
nizzata sotto forma di show per ovvi motivi di 
audience, ad iniziative completamente diverse, ma 
non per questo meno interessanti. 

Le fiere e le rassegne specializzate in genere sono state 
tra le prime a rendersi conto del richiamo che è in 
grado di esercitare un piccolo calcolatore nei con¬ 
fronti del pubblico. 

Così, qualunque sia il settore merceologico rappre¬ 
sentato, non manca quasi mai uno stand capace di 
calamitare l’interesse del pubblico soprattutto grazie 
a un personal dotato di un programma sufficiente- 
mente attraente. 

Anche altre manifestazioni, che in passato avevano 
spesso ignorato la microinformatica, quest’anno 
hanno individuato nei personal computer un ottimo 
elemento di spettacolo. 


Ci riferiamo, in particolare, alle feste organizzate dai 
maggiori partiti politici, in cui gli spazi dedicati al 
futuro e alle tecnologie emergenti hanno attirato l’in¬ 
teresse di moltissimi visitatori. Merito, molto spesso, 
anche dei piccoli calcolatori che con programmi ad 
effetto e visualizzazioni grafiche particolarmente ac¬ 
curate, hanno saputo farsi apprezzare anche da chi 
non li conosceva in precedenza. 

Ma questa ricerca della spettacolarità va oltre e, ri¬ 
specchiando una delle regole commerciali per cui 
occorre stupire per interessare, investe settori appa¬ 
rentemente insospettabili. Ad esempio sé stesso: chi 
ha avuto occasione di visitare l’ultima edizione di 
SMAU, la rassegna specializzata di informatica più 
importante in Italia, avrà certamente notato come 
molti espositori avessero curato in modo artistica¬ 
mente ineccepibile la presentazione dei propri pro¬ 
dotti. 

Si tratta certamente dell’inizio di una fase di maggior 
maturità in questo settore. Ma soprattutto ci si co¬ 
mincia a rendere pienamente conto che le potenziali¬ 
tà praticamente illimitate del personal computer van¬ 
no presentate e offerte in modo adeguatamente crea¬ 
tivo. 

Tutto questo interesse che circonda i piccoli calcola¬ 
tori non può che migliorare il loro impatto con il 
grosso pubblico: sicuramente i vari personal esposti 
nelle vetrine dei negozi più disparati per richiamare 
l’attenzione assolvono solo in parte il compito a cui 
sono stati preposti. Il resto lo compiono autopubbli- 
cizzandosi. E dal punto di vista di un informatico è 
sicuramente un fatto positivo. g 
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Libri firmati JACKSON 


IL PRIMO LIBRO PER M24 

MS DOS e GW BASIC 

Rita Bonelli 

Il libro offre una panoramica rapida 
ma completa sul nuovo Personal 
computer M24, che segna in 
qualche modo il superamento 
dell’epoca PCOS/M20 e 
l’adeguamento dell’Olivetti agli 
standard internazionali nel campo 
del software. 

Il primo capitolo, dopo aver posto 
l’accento sul binomio calcolatore- 
pacchetti di programmi, che 
rappresenterà sempre di più la 
carta vincente nell'evoluzione del 
mercato, descrive la 
configurazione hardware del 
sistema M24, che fa da supporto a 
diversi sistemi operativi e diversi 
linguaggi. 

Segue un capitolo che illustra 
l'utilizzo della macchina nei diversi 
campi e le prove di alcuni 
pacchetti di software disponibili. 

Gli ultimi due capitoli descrivono 
uno dei sistemi operativi, lo MS- 
DOS, e uno dei linguaggi, il GW- 
BASIC, riportando alcuni esempi. 
Segue un glossario che fornisce in 
modo sintetico le nozioni di 
informatica di base necessarie per 
una buona leggibilità del testo. 

Cod. 41OP L. 24.000 
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Linguaggio macchina per C 64 

Riguardo alle puntate sul linguag¬ 
gio macchina del C 64 apparse su 
Personal Software dei mesi scorsi, 
pur apprezzando molto questa ini¬ 
ziativa, desidererei avere maggiori 
chiarimenti. 

Gli articoli, sebbene redatti con la 
massima cura, spesso presuppongo¬ 
no la conoscenza di alcuni concetti 
base e della terminologia riguardan¬ 
ti tale argomento. 

Ciò, purtroppo, non consente ad 
una persona che si avvicina per la 
prima volta a questi problemi di ca¬ 
pire la loro soluzione. Tali articoli, 
quindi, rimangono per gli addetti ai 
lavori escludendo giovani che come 
me vorrebbero imparare a sfruttare 
questa macchina non più per gioca¬ 
re. 

Mi fareste cosa gradita indicandomi 
il modo per poter colmare questa 
mia mancanza e poter, quindi, se¬ 
guire i vostri articoli (particolar¬ 
mente quelli sul linguaggio macchi¬ 
na C 64). 

Giovanni Saibena 
Roma 

La serie di articoli dedicati alla 
programmazione in linguaggio mac¬ 
china del C 64 e de! VIC 20 ha susci¬ 
tato. come era logico aspettarsi, un 
grande interesse. 

Per quanto riguarda il livello della 
trattazione certamente l’intenzione 
dell'autore non è stata quella di rivol¬ 
gersi a una piccola parte di addetti ai 
lavori, anche perchè quest'ultimi non 
avrebbero probabilmente avuto biso¬ 
gno dei suoi articoli. 

In realtà ci si è rivolti a quei lettori, 
che riteniamo abbastanza numerosi, 
dotati di un minimo di conoscenze 
della programmazione in linguaggio 
BASIC e soprattutto de! funziona¬ 
mento de! proprio personal. 


Non si trai tu va quindi, dato l'argo¬ 
mento sviluppato, di un corso destina¬ 
to ai principianti: a loro consigliamo 
di partire con un linguaggio molto più 
immediato e semplice quale è il BA¬ 
SIC. 

Nonostante tutto può comunque darsi 
che qualche concetto possa essere ri¬ 
masto solo parzialmente chiarito a 
causa delle limitazioni che vengono 
imposte dal dover trattare un argo¬ 
mento così ampio sulle pagine di una 
rivista. 

A tutti coloro i quali fossero interes¬ 
sati ad approfondire ulteriormente 
l’argomento consigliamo di procurar¬ 
si uno dei numerosissimi libri che 
molti editori, anche italiani, propon¬ 
gono. 

Oltre ai libri specifici sul C 64, che 
però normalmente affrontano solo 
parzialmente la programmazione in 
linguaggio macchina, converrà visio¬ 
nare testi specifici dedicali al micro- 
processore 6502. 

Infatti il microprocessore del C 64. il 
6510. è un parente strettissimo del più 
diffuso 6502. 


Le cose a metà 

Questo mese dopo alcuni di as¬ 
senza sono tornato a rileggere la vo¬ 
stra rivista, e francamente devo dire 
rispetto all’ultima volta l’ho trovata 
più interessante. 

Al contrario però di alcune riviste 
americane, avete la strana abitudine 
di non terminare o peggio non af¬ 
frontare gli argomenti iniziati. 

Con ciò mi riferisco all’articolo 
con cui trattate la protezione dei 
software sia su cassetta che disco ed 
in particolare per quanto riguarda il 
disco dite che è sufficiente inserire 
degli errori sulle tracce del disco e 
quindi fare controllare al program¬ 


ma tale errore. 

Non c’è però il minimo cenno su 
come agire via software, ne se tale 
procedura è eseguibile anche in BA¬ 
SIC oltre che in Assembly. 

Certo esistono molti programmi che 
servono per creare errori sulle trac¬ 
ce, ma se poi non si sa come fare il 
controllo, è ovvio che l’aver creato 
un’errore non serve a niente. 

Inutile dire che un articolo specifico 
in merito sarebbe molto gradito, an¬ 
che in considerazione che non è ben 
chiaro il sistema da usare per arriva¬ 
re a controllare un tale errore su una 
determinata traccia, l'unica cosa si¬ 
cura è la creazione di una routine 
per simulare l’istruzione ON ER- 
ROR GOTO, ma per il resto le rou¬ 
tine necessarie potrebbero essere 
quelle del S.O. del floppy. 

Maurizio Mellone 
Bussano del Grappa (VI) 

// lettore si riferisce nella sua lette¬ 
ra alla rubrica I segreti dei personal 
relativa a C 64 pubblicala nel numero 
20 di Personal Softw are. In ogni pun¬ 
tata della rubrica l’autore Alessandro 
Guida cerca di affrontare argomenti 
poco noti o comunque insoliti e per 
questo molto graditi da una grossa 
fetta dei nostri lettori. 

Normalmente si tratta di articoli che 
affrontano in modo completo e acces¬ 
sibile a lutti le diverse tematiche. 
Dobbiamo ammettere che per quanto 
riguarda la puntata estiva citata in 
precedenza l'argomento trattato, da¬ 
ta la sua obiettiva specificità, può es¬ 
sere risultato ostico a qualche lettore. 
Anche l'approccio seguito da Guida è 
stato differente: piuttosto che propor¬ 
re dei programmini di protezione già 
pronti per l'uso ha preferito effettua¬ 
re una panoramica più ampia sull’ar¬ 
gomento e fornire degli strumenti di 
lavoro a chi intende progettarsi le 
proprie protezioni. Tutto questo per il 
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Libri firmati JACKSON 


Hervé Haut 

PROGRAMMI DI MATEMATICA 
E STATISTICA IN BASIC 

Dall'interpolazione polinominale di Langrange, 
alle equazioni differenziali di primo e secondo 
ordine, all'adattamento ad un polinomio ... Come 
acquisire la logica necessaria a risolvere con 
metodo, senza perdite di tempo, i problemi con 
il calcolatore. 228 pagine. 

Codice 552 D L. 16.000 

Douglas Hergert 

VISICALC 

Il "foglio elettronico” è una delle applicazioni 
più interessanti del Personal Computer. Tra i 
software di questo tipo VISICALC si distingue 
per semplicità e flessibilità. Questo libro aiuta a 
scoprirne anche le innumerevoli possibilità. 

192 pagine. 

Codice 556 H L. 15.000 
Alan Miller 

PROGRAMMI SCIENTIFICI IN PASCAL 

Un volume di perfezionamento adatto anche a 
costruire una libreria di programmi utili a 
risolvere i più frequenti problemi scientifici e di 
ingegneria. Con un'Appendice riservata ai 
neofiti del linguaggio PASCAL e comprendente: 
riepilogo della sintassi, delle funzioni standard e 
delle parole riservate di PASCAL. 372 pagine. 
Codice 554 P L. 25.000 

Stanley R. Trost 

PROGRAMMI UTILI PER IBM PC 

65 programmi ampiamente collaudati e pronti 
all'uso: finanza e bilancio familiare, gestione 
commerciale, beni immobili, analisi dati, 
registrazione dati, esercizi matematici. 

In Appendice una serie di sottoprogrammi e di 
esempi che ampliano il contenuto del volume e 
insegnano a diventare buoni programmatori. 

192 pagine. 

Codice 564 D L. 15.000 

La Biblioteca che fa testo 
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duplice motivo di stimolare la fanta¬ 
sia del lettore e di non rischiare di 
annullare i benefici di una protezione: 
uno schema completo protettivo, in¬ 
fatti. perderebbe praticamente tutta 
la sua efficacia se pubblicato su una 
rivista a larga tiratura come Personal 
Software. 

Comunque, visto l'interesse suscitato 
dall'argomento protezioni, abbiamo 
chiesto ad Alessandro Guida di ri¬ 
prenderlo e ampliarlo in un articolo 
che pubblicheremo prossimamente. 
Già che siamo in argomento di cose 
lasciate a metà, abbiamo ricevuto 
qualche lamentela da parte di lettori 
che non gradiscono il fatto che deter¬ 
minali argomenti vengano affrontati 
a puntate pubblicate su numeri suc¬ 
cessivi della rivista. Si tratta di una 
scelta obbligata perchè alcuni argo¬ 
menti. come ad esempio la serie sulla 
programmazione in linguaggio mac¬ 
china del C 64. richiederebbero alme¬ 
no un numero intero della rivista e si 
correrebbe il rischio di incorrere nelle 
(giuste) ire di chi è interessalo ad al¬ 
tro. 


Totocalcio su ordinazione 

Sono un fresco spectromane che 
ancora non è in grado di elaborare 
programmi eccessivamente com¬ 
plessi come quello che avrei interes¬ 
se a fare. Ed è per questo che scrivo: 
vorrei infatti fare un programma 
Totocalcio per l'elaborazione dei si¬ 
stemi che contempli la possibilità di 
fare delle riduzioni statistiche, ad er¬ 
rori su una o più sezione, ecc. 

Dal punto di vista teorico la mia 
conoscenza della sistemistica è buo¬ 
na non altrettanto dal punto di vista 
della tecnica di programmazione, 
purtroppo. 

Ho già raccolto parecchio materiale 
e ho già buttalo giù le prestazioni 
(non un diagramma di flusso) che il 
programma dovrebbe dare. 

Su alcune riviste ho trovato dei pro¬ 
grammi abbastanza validi ma per 
altri computer oppure dei program¬ 


mi per lo Spcctrum poco utili o utili 
solo in parte. 

Tenendo conto del crescente interes¬ 
se che ha il calcio iti generale ed 
ancor più il Totocalcio computeriz¬ 
zato penso che sarebbe oltremodo 
interessante se non doveroso da par¬ 
te vostra (non fare caso al discorso, 
se pare interessato perchè è solo una 
maligna impressione) colmare que¬ 
sta lacuna della letteratura odierna. 
Praticamente chiedevo, se il pro¬ 
gramma può avere un certo interes¬ 
se per il pubblico, se potevo even¬ 
tualmente mandare il materiale che 
ho raccolto: listati, fotocopie e ma¬ 
gari una cassetta con i programmi 
ed una traccia del programma, di 
come lo vedrei io se non altro per 
velocizzare il vostro lavoro. 

Andrea Sciarrone 
Genova 

Inutile nascondere che le richieste di 
programmi per lo sviluppo di sistemi 
Totocalcio sono sempre fra le più nu¬ 
merose. 

Sicuramente non le ignoreremo e 
prossimamente pubblicheremo qual¬ 
che programma in proposito. Cerche¬ 
remo comunque di non limitarci a for¬ 
nire un listato pronto per l'uso, ma di 
proporre dei chiarimenti validi per 
tulli. 

In particolare cercheremo di aiutare 
in questo modo il lettore di Genova, 
che peraltro, da quanto scrive, rite¬ 
niamo sia in grado, magari con ap¬ 
prossimazioni successive, di elabo¬ 
rarsi il proprio programma. 

Per questo motivo non lo inviliamo ad 
inviarci il suo materiale per fargli di¬ 
rettamente il programma. Come è no¬ 
to la rivista cerca di stimolare i lettori 
a ricercarsi le proprie soluzioni sfrut¬ 
tando le esperienze di altri appassio¬ 
nati che vengono man mano pubblica¬ 
te. 

Coraggio quindi caro Andrea! Siamo 
sicuri che in tempi brevissimi sarai in 
grado di realizzare il tuo programma 
e noi saremo lietissimi, se lo vorrai, di 
pubblicarlo a beneficio degli altri ap¬ 
passionati. 


ualcosa 

■ ■ > 

i piu 

può trasformare il suo hobby 
in qualcosa di più utile/ 
o ampliare i suoi interessi 
professionali / può ricavare 
un guadagno dal mondo del 
computer che già tanto la 
coinvolge, dedicandoci 
una parte del suo tempo, 
assistito da professionisti/ 
non le promettiamo miracoli, 
l'interesse che ne ricaverà sarà 
• ovviamente funzione 
dell'impegno che potrà o vorrà 
dedicare alla cosa/ 
non ci sono limiti, questo è 
l'interessante, da poche ore 
settimanali, a quanto lei vorrà, 
e senza che ciò le costi una lira/ 
se le interessa, ci telefoni: 
saremo estremamente chiari 
e precisi/ 

faremo anche in modo 
di incontrarci nella ns/ sede 
o nella filiale a lei più vicina/ 
ci chiami da lunedi a venerdì 
tra le 16 e le 19. 


v.m.m. s.r.l. 

20144 milano/via bergognone, 7 
tei. (02) 4981041 (r.a.) 
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Plotter o stampante, 
non c’è problema! 


Dal mondo del professionale, una 
chicca per appassionati danarosi 
che non temono di spendere anche 
un paio di Mega lire pur di avere un 
apparecchio in grado di funzionare 
egregiamente sia da stampante di 
qualità che da plotter a colori. Si 
tratta dell’Adcomp printer/plotter 
X100, una signora periferica versata 
sia nell’output grafico a colori sia 
nella stampa veloce e silenziosa di 
testi e tabelle. Distribuito in Italia 
dalla ravennate SHR, l’XlOO è un 
compatto plotter a tamburo che uti¬ 
lizza fogli su modulo continuo con 
trascinamento a sprocket e lavora in 
alta risoluzione grafica con quattro 
colori. La precisione del tratto arri¬ 
va a 0,05 millimetri, grazie al motore 
elettronico a passo e al caricatore 
portapenne rotante. I quattro ele¬ 
menti scriventi (rosso, blu, verde e 
nero) sono montati in permanenza 
sul caricatore, accorgimento che 
permette di cambiare colore “al vo¬ 
lo”, senza bisogno cioè di ritornare 
al punto di partenza. Il micropro¬ 
cessore di governo dell’XlOO offre 
un insieme di istruzioni riservate per 
il tracciamento di vettori, rettangoli, 
cerchi ed ellissi; le sequenze di con¬ 
trollo di questo apparecchio vengo¬ 
no trasmesse come caratteri ASCII, 
il che lo rende relativamente indi- 
pendente dal tipo di computer e di 
linguaggio utilizzati. È possibile 
stampare anche testi e numeri in 
quattro diverse direzioni, fino ad un 
massimo di 80 colonne per riga. Le 
interfacce disponibili sono le classi¬ 
che Centronics, RS-232C e IEEE 
488, ma è prevista anche una IEEE 
488 versione CBM con conversione 



automatica dei codici. Esiste anche 
l’XlOOs con numerose prestazioni 
aggiuntive (buffer, compatibilità col 
linguaggio HP-GL. ...). I prezzi va¬ 
riano da 1.800.000 lire a 2.600.000, 
secondo il modello scelto. 

S.H.R. S.r./. 

Via Faentina 175/A 
48010 Fornace Zara nini (RA) 

Tel. 0544-463200 


Un portatile 
con tanti attributi... 


La conferenza stampa per l’annun¬ 
cio del PX-8 della Epson è stata l’oc¬ 
casione per decantarne le “magnifi¬ 
che doti e progressive” con abbon¬ 
danza di aggettivi e di ragionamenti 
sulla diffusione del fenomeno infor¬ 
matica in Italia. Avendolo visto, 
non si può fare a meno di concorda¬ 
re con il prof. Maiocchi che indivi¬ 


dua come modelli vincenti “quelle 
macchine che hanno attributi più 
variegati e colorati... il cui uso è si¬ 
mile a quello di un coltello a serra¬ 
manico da boy scout, fornito di la¬ 
me, levette, punteruoli e di altri stru¬ 
menti che non hanno un uso predefi¬ 
nito a priori, ma il cui uso viene 
inventato ogni volta a fronte di 
un’insorta necessità.”, e annoverare 
il PX-8 nella serie di questi versatili 
utensili del ventesimo secolo. Anzi¬ 
tutto le dimensioni: 217 per 290 per 
35 mm, con un peso di 2,3 kg. In 
questo spazio sono concentrati: una 
tastiera italiana professionale con 
tasti specializzati (cursore e funzio¬ 
ne); tre microprocessori (lo Z80 
CMOS principale c due dedicati a 
funzioni di servizio); 64 Kbyte di 
RAM di sistema e 32 Kbyte di ROM 
con il sistema operativo CP/M; un 
display a cristalli liquidi da 480 per 
64 punti, in grado di visualizzare 
grafici in alta risoluzione oppure 8 
righe da 80 caratteri; una unità a 
microcassetta capace di contenere 
100 Kbyte. Oltre a ciò sono presenti 
una serie d’interfacce per collegare 
periferiche di vario genere, tra le 
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quali è da segnalare un disk-drive 
esterno da 3 pollici c 1/2 da 400 
Kbyte alimentato a batteria. Sempre 
in tema di memoria, la Epson distri¬ 
buisce una RAM-disk CMOS da 60 
o 120 Kbyte che si collega sotto il 
portatile e che può essere utilizzata 
anche come supporto per lo scam¬ 
bio di dati, grazie all’alimentazione 
autonoma. Il PX-8 comprende inol¬ 
tre una batteria di riserva incorpora¬ 
ta per preservare permanentemente 
i dati in memoria, anche nel caso di 
interruzione dell'alimentazione 
principale. Applicativi standard in 
versione italiana sono distribuiti an¬ 
che su ROM da inserire in due zoc¬ 
coli dedicati. I prezzi? Nemmeno 
due milioni (IVA esclusa) per il mo¬ 
dello base (con CP/M e BASIC), 
2.250.000 più IVA se si desiderano 
anche Wordstar, Cale e agenda elet¬ 
tronica su ROM. 

SE Gl S.p.A. 

Via Timavo. 12 
20124 Milano 
Tel. 02-6709126 


Giochi ed altro 
per il Commodore 64 


Si amplia ancora il catalogo di 
software disponibile direttamente 
dalla casa madre per il fortunato C 
64. Per gli appassionati di video¬ 
giochi ecco Le Mans, una corsa su 
una pista simile a quella del famo¬ 
so tracciato automobilistico, arric¬ 
chita da un improbabile tratto 
ghiacciato e da uno sconfinamento 
rallystico in guida notturna. Dis- 
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tribuito su cartuccia necessita di 
almeno un joystick e costa 41.000 
lire più IVA. 

Agli amanti della musica è invece 
dedicato Music Machine, un appli¬ 
cativo che semplifica l’uso delle 
possibilità sonore del C 64. Me¬ 



diante una personalizzazione della 
tastiera, il computer diventa uno 
strumento simile ad un sintetizza¬ 
tore: premendo un tasto delle pri¬ 
me due file si otterrà una nota con 
gli attributi prescelti. Il nome della 
nota è mostrato sul pentagramma 
che occupa una parte dello scher¬ 
mo, il suo valore dipende, come in 
un organo, da quanto tempo è la¬ 
sciato premuto il tasto, gli attributi 
programmabili sono: altezza (a 
scelta tra 6 ottave), forma d’onda, 
forma dell’inviluppo ADSR ed ef¬ 
fetti speciali. Naturalmente questo 
po’ po’ di roba produce anche un 
suono emesso dall’altoparlante del 
televisore o dell’impianto Hi-Fi 
con il volume prescelto e modifica- 
bile. È possibile ottenere effetti po¬ 
lifonici ed accordi e avere un ac¬ 
compagnamento ritmico. Oltre ad 
insegnare i primi rudimendi della 
teoria musicale ed il riconoscimen¬ 
to delle note, il Music Machine può 
essere usato quindi anche come 
uno strumento musicale per ama¬ 
tori. Distribuito su cartuccia, costa 
41.000 lire IVA esclusa. 


Commodore Italiana S.p.A. 
Via Fratelli Gracchi, 48 
20092 Cini set lo Balsamo (MI) 
Tel. 02-612565! 



A gonfie vele la Sinclair 


Le hit parade delle vendite dei per¬ 
sonal computer assomigliano trop¬ 
po alle rilevazioni dell’ascolto tele¬ 
visivo, che vedono ai primi posti chi 
ha commissionato la ricerca, per po¬ 
ter dar loro credito. La situazione 
può essere differente all’estero, ma 
non avendo esperienza diretta della 
cosa sono propenso a fare un po’ di 
tara dui dati trionfalmente comuni¬ 
cati dalle case costruttrici. Date que¬ 
ste premesse, valide per tutti e non 
solo per chi ha fatto da elemento 
detonatore di questa filippica, i ri¬ 
sultati della Sinclair nei primi mesi 
del 1984sono di tutto rispetto: detie¬ 
ne il 43% del mercato dei personal 
computer in Inghilterra e una quota 
stimata nel 65% (bum!) in Europa 
per il settore home. Il modello più 
venduto è lo ZX Spectrum che, da 
solo, arriva al 36% del mercato in¬ 
glese. I piani attuali della Sinclair 
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Research prevedono l’ingresso nel 
mercato dei televisori portatili a 
schermo piatto e lo sviluppo di nuo¬ 
vi computer, periferiche e software. 
Pare inoltre che Sir Clive abbia in 
mente di produrre anche un’auto¬ 
mobile elettrica. Se son rose... 

interiori Informazioni: 

Columbia 
Largo Toscanini, I 
20100 Milano 
Tel 02-7798267 


Atmos anche da noi 


Dopo il buon successo dell’ORIC-1, 
che in Francia ha ricevuto notevoli 
riconoscimenti, la casa costruttrice 
inglese, per la distribuzione di alme¬ 
no due società italiane, presenta sul 
nostro mercato l’ultimo nato. Basa¬ 
to su una CPU 6502A l’Atmosèuna 
versione riveduta e corretta 
dell’Oric-1, dotata di una marcia in 
più per quel che riguarda prestazio¬ 
ni e design. I 64 Kbyte di RAM non 
si riducono infatti mai a meno di 37 
Kbyte disponibili per la memoria 
utente, nemmeno quando si lavora 
in alta risoluzione o si fa uso delle 
periferiche, grazie alla oculata scelta 
di utilizzare per queste funzionalità 
delle locazioni di memoria dedicate. 
L’Atmos comprende un interprete 
BASIC esteso Microsoft e offre agli 
acquirenti del disk drive da 3 pollici, 
invece di un insieme raccogliticcio di 
funzioni frettolosamente battezzato 
sistema operativo, una serie di pro¬ 
grammi di utilità per la gestione dei 
file su disco. La versione base si pre¬ 
senta come una tastiera QWERTY 
con 57 tasti, di 175 per 280 per 52 
mm e con un peso di 1,1 kg. La 
grafica offre 240 per 200 punti, con 8 
colori ed il testo, su 28 righe da 40 
caratteri, è in formato molto simile a 
quello del Videotel. L’Atmos coni- 
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prende un altoparlante e un amplifi¬ 
catore interno per gestire i suoni 
prodotti dal sintetizzatore General 
Instrument 8912 su 8 ottave e 3 ca¬ 
nali. I collegamenti previsti sono per 
il registratore a cassette, la stampan¬ 
te e il drive per micro floppy disk da 
3”. Contemporaneamente all’At¬ 
mos, la Oric presenta anche una pic¬ 
cola stampante a quattro colori e 
l’unità a micro dischi, curandone lo 
stile e la grafica in modo da soddi¬ 
sfare anche l’occhio più esigente. 

Computer Service S.r.l 
Via dei Vigneti, 8 
39042 Bressanone 
Tel. 0472-22636 

PiZeta S.r.l 
Via G. Mora, Il 
20123 Milano 
Tel 02-8379295 


Stampante Texas 
dalla doppia vita 


La Texas Instruments ha appron¬ 
tato una stampante multifunzione, 
la Omni 855, in grado di operare 
sia con risoluzione standard (per le 
bozze o i tabulati) sia ad alta riso¬ 
luzione per ottenere stampe simili 
a quelle prodotte dalle macchine 
da scrivere. La Omni 855 stampa 
su 80 colonne con spaziatura 10 e 
offre diversi passi a seconda della 
serie di caratteri utilizzati. È colle¬ 
gabile a tutti i modelli di Professio¬ 
nal Computer TI e alla maggior 
parte dei PC sul mercato, grazie 
alla compatibilità con gli standard 
hardware correnti. I font dei carat¬ 
teri sono contenuti in cartucce so- 


lid state che vengono caricate nel 
frontale della stampante: per ora 
sono disponibili gli stili Prestige 
Elite, Gotico, Courier, Pica e Ora- 
tor. La velocità di stampa è di 150 
car/sec in bassa risoluzione con 
una matrice di 9 per 9 punti; scende 
a 35 car/sec in “near letter quality” 
con una matrice 32 per 18. 
L’alimentazione è a rullo e a frizio¬ 
ne; esiste anche un alimentatore 
automatico per fogli singoli. 

Texas Instruments 
Semiconduttori S.p.A. 

Viale Europa. 40 

20093 Cotogno Monzese (MI) 

Tel 02-2532451 


Metti la presa e vai 


È arrivato anche in Italia, c qualcu¬ 
no l’avrà visto al SIM, il CPC 464 
della inglese Amstrad, un personal 
computer che si propone come auto¬ 
revole concorrente dello Spectrum. 
Molto interessanti le prestazioni, re¬ 
lativamente al prezzo, e la scelta di 
venderlo completo di registratore e 
monitor. La Amstrad, che detiene 
una grossa fetta del mercato inglese 
dell’Hi-Fi, si è decisa infatti ad en¬ 
trare nei turbolento mondo dell’ho- 
me computer senza venir meno alla 
formula vincente dei suoi prodotti: 
inserisci la presa e vai. Per questo il 
CPC 464 si presenta come una ta¬ 
stiera molto sviluppata nella dimen¬ 
sione maggiore dato che oltre alla 
sezione comprendente i tasti veri e 
propri vi sono stati incorporati il 
registratore a cassette e la parte di 
controllo per i giochi. II circuito di 
alimentazione del CPC 464 è allog¬ 
giato nel monitor, soluzione insoli¬ 
ta, perché preclude la possibilità di 
usare un apparecchio TV di recupe¬ 
ro, ma molto efficace per risolvere 
problemi di raffreddamento e di 
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connessione tra i vari elementi del 
sistema. Con il parco personal della 
Amstrad bastano infatti una sola 
presa di corrente e due cavi per rea¬ 
lizzare il collegamento tra le compo¬ 
nenti di base e cominciare a lavora¬ 
re. Basato su uno Z80A a 4 MHz, il 
CPC 464 dispone di 64 Kbyte di 
RAM, 42 dei quali disponibili per 
l’utente; 32 Kbyte di ROM con BA¬ 
SIC Microsoft esteso e sistema ope¬ 
rativo; una grafica da 640 per 200 
punti con 27 colori; 80 colonne; ta¬ 
stiera QWERTY con 74 tasti; porta 
Centronics e uscita per joystick. Nel 
prezzo, 700 mila lire nella versione 
con monitor a fosfori verdie 1 milio¬ 
ne con il monitor a colori (IVA es¬ 
clusa), è compreso anche il registra¬ 
tore a cassette Datacorder con velo¬ 
cità di tarsferimento massima di 2 
Kbaud. È prevista l’espansione ver¬ 
so configurazioni CP/M, attuata 
con floppy da 3 pollici, compren¬ 
dente anche una appropriata versio¬ 
ne del LOGO. I prezzi delle periferi¬ 
che sono allineati con il resto del 
mercato; 649.000 lire per il disk dri¬ 
ve con controller, 519.000 per il se¬ 
condo drive, 609.000 per la stam¬ 
pante comprensiva di cavo per la 
connessione al CPC 464 (IVA sem¬ 
pre esclusa). 

Microstar S.r.I. 

Via Caglierò, 17 
20125 Milano 
Tel. 02-6887604 



ECCO I VINCITORI 

DEL CONCORSO ABBONAMENTI 1983 


Viaggio soggiorno a Londra di 5 giorni per 2 persone 

1) De Marzo Vito - Via Rondoni 6 - 20146 Milano 

2) Brandolin Hubert - Via Leoni Condominio P - 34170 Gorizia 

3) Giovanno Cecchini - Vicolo delle Grotte 52 - 00186 Roma 

Premio abbonati a Informatica Oggi - Personal Computer IBM 

1) Santelmo Francesco - Via Belluno 47 - 01100 Viterbo 

Premio abbonati a Elettronica Oggi - Oscilloscopio Philips PM3215 

1) Lecora Ivo - Via Passo P. Barsanti 4-16125 Genova 

Premio abbonati a Elektor - Oscilloscopio Unaohm 

1) Pietrini Giuseppe - Via P. Della Valle 12/4 - 50127 Firenze 

Premio abbonati a L’Elettronica - 2 Personal Computer 
Epson HX- 20 

1) Ceccotti Enrico - Via Euriaio 35 - 80124 Napoli 

2) Decuzzi Giuseppe - Via Reggio Calabria 52-75014 Grassano (MT) 

Premio abbonati a Strumenti Musicali - Chitarra elettrica B.C. Rich 

1) Barbosio Mario - Via Ausonia, 48 - 90144 Palermo 

Premio abbonati a Bit - Personal Computer IBM 

1) Murgia Giovanni - Via V. Emanuele II, 60 - 08022 Dorgali (NU) 

Premio abbonati a Personal Software - 3 Personal Computer 
ZX Spectrum 

1) Ferrano Ezio - Via Trieste 6 - 20051 Limbiate (MI) 

2) Tommasoni Attilio - Via S. Faustino 56 - 24027 Nembro (BG) 

3) Franco Lino - Via Ogliaro 58 - 13050 Pavignano (VC) 

Premio abbonati a Automazione Oggi - Plotter M84 

1) Facchinotti Guido - Via XXV Aprile 21 - 20094 Corsico (MI) 

Premio abbonati a Telecomunicazioni Oggi 
3 telefoni a margherita e 3 segreterie telefoniche 

1) Russo Giuseppe - Via Menofilo 33 - 00178 Roma 

2) Chierici Lido - ViaS. Francesco Ili trav. 7 -18011 ArmadiTaggia(IM) 

3) Massa Vincenzo - Via Vico Manno - 09017 S. Antiaco (CA) 

1) Mariani Sergio - P.zza IV Novembre 29 - 20099 Sesto S. Giovanni 
(MI) 

2) Esposito Antonino - Via S. Cesareo 81 - 80067 Sorrento (NA) 

3) Di Pietro Giovanni - Via Matteotti 119-71100 Foggia 

Premio abbonati a Video Giochi - 5 consolle videogiochi Atari 

1) Rogialli Simone - Via Fossombroni 31 - 52100 Arezzo 

2) Briganti Andrea - Via Giacomo Bresadola 26 - 00171 Roma 

3) Mantovani Silvio - Via Del Naviie 1/4 - 40131 Bologna 

4) Ottaviani Franco - Via S. Cosimo 6 - 37121 Verona 

5) Morini Maurizio - Via G. Di Vittorio 28 - 42017 Novellara (RE) 
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Libri firmati JACKSON 
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VOI E IL VOSTRO 
COMMODORE 64 

Un esaudiente vademecum 
sulla programmazione In 
BASIC dal Personal ad oggi 
tra i più diffusi. 

Facile, brillante ricco di 
programmi verificati, questo 
è un prezioso volume sia 
per i neofiti che per gli 
utilizzatori più esigenti. 

256 pag. L. 22.000 
Cod. 347 B. 


PROGRAMMAZIONE 
DELLO ZX SPECTRUM 

Aggiungete suono e colore 
ai vostri programmi, 
scoprite lo SPECTRUM 
negli affari e nell'Istruzione, 
giocate e imparate a 
scrivere I giochi, disegnate 
figure in 3 dimensioni. 

212 pag. L. 18.000 
Cod 531 D. 


APPLE MEMO 

Sintassi dei comandi, codici 
dei caratteri, messaggi di 
errore, linguaggio 

macchina, indirizzi utili. 

Un libro destinato a stare In 
permanenza a fianco del 
vostro Apple. 

146 pag. L. 15.000 
Cod 340 H. 


BASIC SU APPLE 
programmi in pochi minuti 

65 programmi pronti che vi 
risolveranno problemi che 
vanno dalla “economia 
domestica", alle 
applicazioni commerciali, ai 
calcoli statistici, alla 
creazione degli archivi. 

184 pag. L. 14.000 
Cod 532 H. 


APPLE TUTTO FARE 
Collegamenti e progetti 

Questo libro è stato scritto 
per chiunque voglia capire 
come l'APPLE e gli altri 
home computer, possano 
essere interfacciati con il 
mondo esterno. 

208 pag. L. 18.000 
Cod. 334 D. 


PET/CBM GUIDA 
ALL'USO VOL. 1 e VOL. 2 

É la versione italiana del 
famosissimo testo 
americano: "PET/CBM 
Personal Computer Guide" 
ed è presentato in due 
volumi data l'ampiezza e la 
profondità degli argomenti 
trattati. In questo manuale 
troverete tutto ciò che è 
necessario sapere sui 
calcolatori COMMODORE. 
VOL 1 250 pag. L. 20.000 
cod. 332 P 

VOL 2 282 pag. L. 22.500 
cod 333 P 


La Biblioteca 
che fa testo 

CEDOLA DI COMMISSIONE LIBRARIA 
VOGLIATE SPEDIRMI 
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Giochiamo a bridge 
_con Apple II_ 


Un programma 
per la generazione 
di mani casuali 


di Vincenzo Delle Cave 

I l bridge è senz’altro il gio¬ 
co di carte più complesso, 
ma proprio per questo il 
più affascinante che ci sia. 

In questi ultimi anni la sua popolari¬ 
tà è notevolmente aumentata e sono 
sempre di più i giovani che si avvici¬ 
nano a questo gioco. 


Il programma che vi presento non 
ha la pretesa di insegnare il bridge nè 
tanto meno quella di trasformare il 
vostro Apple in un giocatore: è più 
semplicemente un generatore casua¬ 
le di mani. 

Prima di passare a commentare il 
programma (che ovviamente può 
essere usato anche per distribuire un 
mazzo di 52 carte fra quattro gioca¬ 
tori che identificheremo con Nord, 
Sud, Est e Ovest), precisiamo, per i 
non esperti, che in una partita di 
bridge il valore delle carte è in ordi¬ 
ne decrescente A, K, Q, J, 10 ... 2 e 
che convenzionalmente si attribui¬ 
sce alI’A un valore di 4 punti, al K 3 
punti, alla Q 2 punti e al J 1 punto. 
In un mazzo di carte i punti sono 


quindi 40; per iniziare il gioco è ne¬ 
cessario che almeno un giocatore 
abbia minimo 12 punti (a parte alcu¬ 
ne eccezioni che al momento non 
interessano). 

Il programma offre due possibilità: 

1) permette di generare casualmente 
un numero prestabilito di mani. 
Ogni mano sarà visualizzata su vi¬ 
deo c a richiesta anche su stampan¬ 
te; 

2) Accetta da tastiera le carte dei 4 
giocatori e visualizza la mano corri¬ 
spondente. 

In entrambi i casi c’è la possibilità 
di memorizzare su disco le varie ma¬ 
ni creando così un vero e proprio 
archivio. Gli appassionati di bridge 
potranno fruire di questa seconda 


Listato 1. Il programma Bridge. 

2 D* = CHR* (4) 

3 DiM A <20,4) 

5 DIM C <53>, N ( 13), S( 13), E( 13), 0( 

13) , CCS (53),M<20>,PU<53> 

6 Lidi = "N":E*<2> = "S":E*<3> = 

"E":F*<1> = "P":F*<2) = "C": 

F*<3> = ”G":F*(4) = "F" 

7 FOR I = O TO 3 

8 FOR J = 1 TO 13 

9 READ CC*<1 * 13 + J + 1) 

10 NEXT J: FOR J = 1 TO 13: READ 

PUC * 13 + J + l) NEX7 J: RESTORE 

11 NEXT I 

18 HOME 

19 -iTAB 7 

20 INVERSE : PRINT "GENERATORE C 

ASUALE DI MANI" 

30 VTAB 5: HTAB 19: PRINT "DI" 

40 PRIN~ : PRINT : HTOB 11: PRINT 
"VINCENZO DELLE CAVE" 

LiO NURMAl : VTAB 20: PRINT "BATT 
I UN TASTO PER INIZIARE 
: GET KK* 

Sé. HOME : INVERSE : PRINT "ME 
N U" PRINCIPALE": 

NORMAL : VTAB 4: PRINT "1) 
GENERAZIONE MANI CASUALI ": 

PRINT : PRINT : PRINT “2> A 
CCJÉ.'TA MANI “ 

SZ PRINT : PRINT : PRINT "3) STA 

'.PA VANI GIÀ’ MEMORIZZATE": PRINT 


: PRINT : PRINT "4) INIZIALI 
ZZAZ10NE ARCHIVIO": PRINT : PRINT 
: PRINT "5) FINE " 

Sii VTAB 22: PRINT "COSO SCEGLI" 

"GET KK*: IF VAL <KK*> ) 

S OR VAL <KK*> < 1 THEN 56 


59 

IF 

VAL 

(KK*) 

_ —, 

THEN 

9990 

60 

IF 

VAL 

(KK*) 

~ 4. 

THEN 

2400 

61 

IF 

VAL 

(KK*) 

- 3 

THEN 

2500 

62 

IF 

VAL 

(KK,*) 

_ rr 

- xj 

THEN 

HOME 


: END 

64 HOME : INPUT "BATTI LA DATA D 
J OGGI (GGMMAA) " ;KK* 

SS) X =■ SOR ( VAL <KK*>) 

70 INPUT "CHE TIPO DI MANO VUOI 

" ; KK* 

71 INPUT "QUANTE MANI VUOI? “;QQ 

*:QO = VAL <QQ*> 

72 INPUT "VUOI L’USCITA SU STAMP 

ANTE? (S/N) ";ST*: IF ST* « 
"S" THEN ST = 1 : GOTO 74 

73 HOME : IF ST* < > "N" THEN 7 

2 

74 INPUT "VUOI MEMORIZZARE LE MA 

NI? <S/N> ";MEM*: IF MEM* ■ 
"S" THEN GOSUB 2000 

75 X = X * SQR < VAL (KK*)) 

78 GEN * 2 + INT <51 * RND ( - 
X) > 

77 NN = 12 

80 HOME : PRINT "STAMPA AUTOMATI 
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CO 0 MANDOLE - <0/M>";: GET DR 

* 

Al EOR SI = 1 TQ GQ 

82 FQR II = 1 TO 53<C(II) = Os NEXT 
II 

85 FOR II = 1 TO 39 

90 I = 2 + INT (52 * RND •<!>> 

95 IF C <I » = 1 THEN 90 
100 C<I) = 1 

105 IF II > 26 THEN E(II - 26) = 

I: GOTO 115 

110 IF II > 13 THEN SUI - 13) = 

I : GOTO 115 
112 N(II> = I 
115 NEXT II 

120 K = 1 

125 FOR II = 53 TO 2 STEP - 1 
130 IF CUI) =0 THEN 0(K) = II: 

K * K + 1 

134 NEXT II: HOME 

136 FOR II = 1 TO 13:1*1(11) = N(I 
I): NEXT II 

137 GOSUB 9700 

138 IF OP = 1 THEN 149 

139 FOR II = 1 TO 13:M(II> = S (I 
I): NEXT II 

140 GOSUB 9700 

141 IF OP * 1 THEN 149 

142 FOR II - 1 TO 13:M(II) = E(I 
I): NEXT II 

143 GOSUB 9700 

144 IF OP = 1 THEN 149 

145 FOR II = 1 TO 13:M UI) « 0(1 
I): NEXT II 

146 GOSUB 9700 

148 IF OP » O THEN SI = SI - 1: GOTO 
155 

149 GOSUB 6000 

150 GOSUB 3000 

151 VTOB l: HTOB ls INVERSE : PRINT 
"MONO N."; SI : VTOB 22: NORMOL 

: IF DR* = "M" THEN VTOB 23 
: PRINT "PREMI UN TOSTO PER 
CONTINUARE "; : SET KZ* 

152 JJ = II + 1 

153 IF ST * 1 THEN GOSUB 8000 

154 IF MEM* = "S" THEN GOSUB 21 
OC» 

155 NEXT SI 

156 IF MEM* = "S" THEN GOSUB 22 

00 

157 REM 

160 GOTO 56 

500 DOTO 2,3.4,5,6,7,8,9,10,J, 
G,K,0 

510 DOTO 0,0, 0,0, O, 0, 0,0, O, 

1,2,3,4 

2000 REM LEGGI N. MONI MEMORIZZ 
OTE 


2010 

PRINT : PRINT D*;"OPEN N-MA 

NI,LI 50" 

2020 

PRINT D*;"REOD N-MPNI,R0" 

2030 

INPUT NM:RM = NM + 1 

2040 

PRINT D*;"CLOSE N-MONI" 

2050 

RETURN 

2100 

REM MEMORIZZO MONO 

2110 

PRINT : PRINT D*;"OPEN N-MO 

NI, LI50" 

2120 

PRINT D*;"WRITEN-MONI,R";RM 

2130 

FOR MC ** 1 TO 13: PRINT N (M 

C): NEXT MC 

2135 

FOR MC = 1 TO 13: PRINT S(M 

C>: NEXT MC 

2140 

FOR MC = 1 TO 13: PRINT E(M 

C>: NEXT MC 

2145 

FOR MC » 1 TO 13: PRINT 0<M 

C): NEXT MC 

2170 

PRINT D*;"CLOSE N-MANI" 

2180 

RM = RM + 1 

2190 

RETURN 

2200 

REM OGGIORNO N.MONI MEMORI 

ZZOTE 

2210 

PRINT : PRINT D*;"OPEN N-MO 

NI,LI50" 

2220 

PRINT D*;"WRITEN-MONI,RO" 

2230 

PRINT RM - 1 

2240 

PRINT D»;"CLOSE N-MONI" 

2250 

RETURN 

2400 

REM INIZI OLIZ ZOZI ONE ORCHI 

VIO 

2401 

HOME : PRINT " CONFERMATO R 

ICHIESTO ": PRINT " INIZIALI 

ZZOZIONE ARCHIVIO? "; : GET H 

J* 

2403 

IF HJ* ( > "S" THEN 56 

2404 

PRINT : PRINT Dt;"OPENN-MON 

I,L150" 

2405 

PRINT D*;"DELETE N-MONI" 

2410 

PRINT : PRINT D*;"OPEN N-MO 

NI, LI50“ 

2420 

PRINT D*;"WRITEN-MONI,RO" 

2430 

PRINT 0 

2440 

PRINT D*;"CLOSE N-MONI" 

2450 

GOTO 56 

2500 

HOME : INPUT "QUANTE MONI V 

UOI STOMPORE? ";KK*:K1 = VAL 
(KK*) 

2502 

GOSUB 2000 

2505 

IF K1 ) NM THEN HOME : INVERSE 
: PRINT "L’ARCHIVIO CONTIENE 

SOLO ";NM;" MONI "s NORMOL 
: GET KK*: GOTO 2500 

2507 

INPUT "VUOI L’USCITO SU STO 

MPONTE? (S/N) ";ST* 

2508 

HOME : INPUT "STAMPO OUTOMO 

TICO 0 MONUOLE (O/M)? ";KZ* 

2509 

HOME 
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Leoni informato 

HARDWARE & SOFTWARE 
HOUSE 


HOTLINE 

linea telefonica dedicata alla 
risoluzione dei problemi dei clienti. 
Chiamando il numero telefonico 
riservato che troverete sulla 
cartolina garanzia acclusa ai 
programmi, riceverete tutte le 
informazioni che vi necessitano. 


UPDATE 

servizio di aggiornamento continuo 
dei programmi acquistati. 

Ogni modifica ai programmi 
realizzati dalla Leoni Informatica 
sarà fornita agli utenti degli stessi. 


GARANZIA 

tutti i programmi Leoni Informatica 
sono coperti da garanzia a Vita 
contro guasti di origine. 


COMMODORE 64* SOFTWARE 


SOFTWARE PER COMMODORE 64 E PLUS/4 


Programmi in configurazione base O IVA esclusa 


Cod 

Descrizione 

Prezzo 

Cod 

Descrizione 

Prezzo 



PERSONALI 



0046 

Ammortamento Mutui 

60 000 

0049/T 

Tolopius 

100 000 

ooso/r 

Totocalcio a sviluppo colonnare 

80 000 

0051/T 

Gestione dei Conti di casa 

100 000 

uosa'T 

Calcolo dell'equo canone 

80 000 

0055/T 

Impanamo it BASIC 

100 eoo 

0059/T 

Modello 740 

10000O 

0063 

Cento programmi BASIC 

80 000 

0066 

Conto corrente 

100 000 

0091/T 

Rubrica telefonica 

100000 

0176 

Dlary 64 (Commodore) 

95000 

0174/T 

Corso di Dattilografia 

80.000 



GESTIONI GENERALI 


0047 

Anagrafiche 

150000 

0056 

Dichiarazione I VA 

60000 

0065/T 

Fido Clienti 

100 000 

0067 

Piano dei Conti (di/tor/gen) 

100 000 

0068 

Appuntamenti 

100000 

0071 

Ordini (cli/for) 

100 000 

0090 

Mailing List (riordino alfabetico cap prov ) 

100 oc® 

0094 

Scheda 4800 car (cli/for/rapp /az etc ) 

100 000 

0096 

Scheda 4800 car agganciata al Mailing 

150 000 

0097 

Super Mail (5 chiavi accesso, riordini ) 

180 000 

0116 

Scadenziario effetti (rie bancarie tratte, etc ) 

100 000 

0120 

Contabilità Iatture (Iva. impon etc.) 

100 000 

0121 

Contabilità Semplice (Tratte/Fatt /Conti/etc ) 

250000 

0160 

Bolle e Fatture 

200 000 

0125 

Contabilità Generale (132 colonne) 

300 000 






GESTIONI SPECIFICHE 


0045 

Agenti e Rappresentanti 

150000 

0048 

Scadenzano premi e polizze 

150 000 

0164 

Agenzie Immobilian 

150 000 

0086 

Librerie e biblioteche 

120 000 

0148 

Studi Ottici 

200 000 

0151 

Farmacie 

300 000 

0149 

Studi Dentistici 

200.000 

0152 

Studi Medici 

200 000 

0131 

Hotel e Pensioni 

280 000 

0132 

Parrucchieri 

280 000 

0133 

Gommisti 

280 000 

0134 

Clubs Nautici 

280 000 

0135 

Officine 

280 000 

0171 

Ristoranti 

280 000 

0170 

Tavola Calda 

280 000 

0172 

Lavanderie 

280 000 

0175 

Condominio New (132 colonne) 

400.000 






GESTIONE TESTI 



0190 

Hes Wnter 

70 000 

0191 

Word Processor III 

100 000 

0192 

Bank Street Wnter 

70000 

0319 

Easy Scnpt/T (Commodore) 

75 000 



TECNICI 



0136 

Legge 373 (calcolo degli isolamenti termici) 

100000 

0140 

ingegneria civile 1 (calcoli strutt.) 

100,000 

0141 

Ingegneria civile II (travi intelaiale) 

100 000 

0404 

Computo metrico 

200.000 

0409 

Diagnostica C64 

40000 

0322 

Doctor 64 

60 000 



MAGAZZINI 



0142 

Magazzino e Fatturazione semplici 

100 000 

0143 

Magazzino Grossisti (2500 art ) 

280 000 

0144 

Magazzino e Fatturazione agganciati 

200 000 

0158 

Magazzino Dettaglio (2500 art ) 

280000 

0148 

Magazzino codice alfanumenco (600 art ) 

200 000 

0159 

Magazzino Taglia/Col (2500 art ) 

280000 



LINGUAGGI & UTILITIES 


0162/T 

Screen Grafix (Abacus) 

85000 

0163 

Copia Disco singolo 

50000 

0064 

Petspeed Compiler (Commodore) 

80 000 

0165/T 

Zoom 

70000 

0167 

Simon's Basic (Commodore) 

85000 

0168/T 

Turbo Tape 

50000 

0177 

Pilot (linguaggio) 

70 000 

0178 

Ultra Basic 

125000 

0179 

Comp/Scompaclor 

50 000 

0193/C 

Basic 4 0 

80000 

0194 

Spnte Generalo/ 

70 000 

0195 

Assembler 

80000 

0196 

S A M (Tromx) 

100 000 

0197 

G-Pascal 

95000 

0198 

Forth 64 (Commodore) 

95 000 

0199 

Tol 61 

85000 

0200 

Master (Commodore) 

145 000 

0201/C 

Scheda CP/M (Commodore) 

125 000 

0333 

Clone machine 

100 000 

0334 

Unguard 

200 000 

0335 

Fast Copy 4 5 

100 000 

0336 

Music Composer 

150 000 

0337 

Basic Programm Generator 

250 000 

0338 

Copy Files 

80 000 

0320 

The MANAGER 64 

100 000 

0321 

Austro Compilatore 

80000 

0210 

Lite Pen (incluso software) 

130 000 






GESTIONE DATI 



0157 

Easy Cale 

125000 

0205 

Super Base 

175 000 

0206 

Magic Desk (Commodore) 

75 000 

0207 

Koala Joystick 

100.000 

0209 

Data Log 

120 000 

0220 

Easy Cale Tape 

125.000 

0400 

Stock Control 

120 000 

0401 

Easy Label 

120 000 


Leoni 


MB. (*) Per configurazione base si intende Commodore 64. Floppy 1541. Stampante Commodore a 00 colonne 
I codici barrati T sono disponibili anche su cassetta, quelli barrati ‘C sono Cartridge 



InfrrmaNca 


Direzione Commerciale» via Valsolda, 21 
20143 MILANO - tei. 02/8467378 


Negozio vendite al pubblico: Milano - Corso di Porta Romana, 123 













Giochiamo 
a bridge 
con Apple II 


Seguito listato Rriclge. 

2510 FOR EL = 1 TO K1 
2520 PRINT : PRXNT Df'OPEN N-MAN 
I,LISO" 

2530 PRINT Df'READ N-MANI,R";EL 
2540 FOR J » 1 TO 13: INPUT N(J) 

: NEXT J 

2545 FOR J = 1 TO 13: INPUT S(J) 

: NEXT J 

2550 FOR J = 1 TO 13: INPUT E<J> 

: NEXT J 

2555 FOR J = 1 TO 13: INPUT 0<J> 

: NEXT J 

2560 PRINT D*;"CLOSE N-MANI" 

2570 GOSUB 3000 

2575 VTAB U HTAB 1: INVERSE : PRINT 



"MANO N. ' 

‘ ;EL: NORMAL 

2580 

IF 

00 

ST* = 

"S" THEN 

GOSUB 80 

2582 

IF 

KZt = 

•"M" THEN 

VTAB 23: 


PRINT "PREMI UIJI TASTO PER C 
ONTINUARE GET HJ* 

2585 HOME 
2590 NEXT EL 
2600 GOTO 56 

3000 FOR II = 1 TO 13:M(11) = N< 

II): NEXT II 

3010 HT = 19:VT = 2: GOSUB 5000 
3020 FOR II = 1 TO 13:M(II) = 0( 

II): NEXT II 

3030 HT = 16:VT = 10:FLAG = l: GOSUB 
5000 :FLAG = 0 

3040 FOR II = 1 TO 13:M<II> = E( 


II): NEXT II 

3050 HT = 23:VT = 10: GOSUB 5000 
3060 FOR II = 1 TO 13:M(II) = S< 

II): NEXT II 

3070 HT = 19:VT = 18: GOSUB 5000 

3071 INVERSE : HTAB 20: VTAB 8: PRINT 
"N": HTAB 20: VTAB 14: PRINT 

. "S": HTAB 19: VTAB li: PRINT 

"0”: HTAB 21: VTAB li: PRINT 
"E": NORMAL 
3080 RETURN 

5000 HTAB HT: VTAB VT: INVERSE 
5002 KK = O:FZ = O 

5005 IF FLAG - 1 THF.N PRINT " P 
"; : NORMAL : GOTO 5020 
5010 PRINT "P "NORMAL 
5020 FOR II = 1 TO 13 
5030 IF M(1I) < 41 THEN JJ = II: 

II ■ 13: GOTO 5050 

5032 J J - 11 + 1 :KK = KK + 1 

5033 IF CCS (M(II)) = "IO" THEN F 
Z = 1 

5035 IF FLAG = 1 THEN HTAB HT - 
KK - FZ 

5040 PRINT CCS(M <11)); 

5050 NEXT II 
5035 KK - O:F z = 0 

5060 HTAB HT: VTAB VT + 1 : INVERSE 

5065 IF FLAG = 1 THEN PRINT « C 
"; : NORMAL : GOTO 5075 
5070 PRINT "C NORMAL 


possibilità per memorizzare le mani 
più interessanti giocate nei vari tor¬ 
nei. Se poi tra i lettori c’è qualche 
direttore di torneo, ebbene, ecco un 
programma che permette sia di or¬ 
ganizzare un torneo di bridge a mani 
preparate sia di predisporre un tor¬ 
neo che richieda di smazzare prece¬ 
dentemente le mani da giocare, evi¬ 
tando così al direttore di torneo il 
noioso compito di trascriverle e di 
controllare l’apertura (minimo 12 
punti per almeno I giocatore). 
Appena lanciato, il programma pre¬ 
senta le seguenti opzioni: 

I ) generazione mani casuali; 

2) accetta mani; 

3) stampa mani già memorizzate; 

4) inizializzazione disco; 

5) fine. 

La prima cosa da fare è quella di 
selezionare l’opzione 4) che permet¬ 
te di inizializzare il file N-MANI 


contenente, oltre alle mani che sa¬ 
ranno successivamente inserite, il 
numero delle mani memorizzate. 
Inizialmente verrà appunto inserito 
nel primo record di tale file il valore 
0 che sta a significare che non esisto¬ 
no mani registrate nel file. L’opzio¬ 
ne 4) va selezionata perciò o la pri¬ 
ma volta che lanciamo il program¬ 
ma oppure ogni volta che vogliamo 
reinizializzare l’archivio. Attenzio¬ 
ne dunque perchè in quest’ultimo 
caso l’archivio precedente viene 
completamente cancellato. 

Analizziamo ora più dettagliata- 
mente le varie linee del programma. 
7-11 Inizializzazione del vettore PU 
contenente i punti da attribuire ad 
ogni carta (J=l; Q=2; K=3; A=4 e 
0 per tutte le altre carte) e del vettore 
CCS contenente tutte le carte. 

18-80 Presentazione del menu e ac¬ 
cettazione dati input. La data c il 


tipo di mano vengono chiesti per la 
generazione di mani casuali (la va¬ 
riabile NN identifica il punteggio 
minimo di apertura). 

81-155 È la routine che permette di 
generare il numero di mani casuali 
richiesto (variabile QQ) secondo il 
seguente algoritmo: le 52 carte del 
mazzo sono codificate con i numeri 
che vanno da 2 a 53. I numeri da 2 a 

14 rappresentano le carte di fiori 
( 11=J; 12 = Q; 13 = K; 14 = A); da 

15 a 27 le carte di quadri; da 28 a 40 
le cuori c da 41 a 53 le picche (se¬ 
guendo sempre la stessa logica per i 
rispettivi J x Q, K, A). 

2000-2450 È la parte del programma 
relativa alla gestione del file IM¬ 
MANI contenente il numero di ma¬ 
ni registrate c le mani stesse. (2000- 
2050 legge il numero di mani conte¬ 
nute nell’archivio; 2100-2190 me¬ 
morizza una nuova mano; 2200- 
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5075 IF JJ = 14 THEN 5120 

5080 FOR II = JJ TO 13 

5090 IF M ( 11 > <28 THEN JJ = II* 

II = 13! GOTO 5110 

5092 JJ = II + 18 KK « KK + 1 

5093 IF CCS(M <II)) = "IO" THEN F 
Z = 1 

5095 IF FLOG = 1 THEN HTPB HT - 
KK - FZ 

5100 PRINT CCS<M<II>); 

5110 NEXT II 
5115 KK = O s FZ = 0 

5120 HTPB HT: VTPB VT + 2! INVERSE 

5125 IF FLPG = 1 THEN PRINT *' Q 
"; ! NORMRL : GOTO 5135 
5130 PRINT "0 ";! NORMRL 
5135 IF JJ = 14 THEN 5180 
5140 FOR II = JJ TO 13 
5150 IF M(II) <15 THEN JJ = II! 

II = 13: GOTO 5170 

5152 J J = II + 1 ! KK =* KK + 1 

5153 IF CCS<M<II>> = "IO" THEN F 
Z = 1 

5155 IF FLPG = 1 THEN HTPB HT - 
KK - FZ 

5160 PRINT CCS <M < 11 > >; 

5170 NEXT II 
5175 KK * 0 !FZ = 0 

5180 HTPB HT: VTRB VT + 3: INVERSE 

5185 IF FLRG = 1 THEN PRINT " F 
NORMRL : GOTO 5195 
5190 PRINT "F NORMfll. 

5195 IF JJ = 14 THEN 5230 
5200 FOR II = JJ TO 13 

5205 JJ = II + 1 !KK •» KK + 1 

5206 IF CCS <M <11 )) = "IO" THEN F 
Z = 1 

5207 IF FLRG = 1 THEN HTPB HT - 
KK - FZ 

5210 PRINT CCS <M <11)); 

5220 NEXT II 

5225 VTRB 22 

5230 RETIJRN 

6000 FOR I = 1 TO 12 

6010 FOR J = I + 1 TO 13 

6020 IF N(I) < N<J> THEN BUFF = 

N < J) :N < J) = N < I > i N < I ) = BUFF 

6030 IF SII) < S<J) THEN BUFF = 
S<J):S<J) = S <I>:S <I) = BUFF 

6040 IF E(I) < E<J) THEN BUFF = 
E<J>!E<J> = E(I> s E <I) = BUFF 

6050 NEXT J 
6060 NEXT I 
6070 RETURN 


8000 PRINT : PRINT DS;"PR#1“ 

8010 FOR XX = 1024 TO 1920 STEP 
128 

8020 GOStJB 8500 
B030 NEXT XX 

8040 FOR XX = 1064 TO 1960 STEP 
128 

8050 GOSUB 8500 
8060 NEXT XX 

8070 FOR XX = 1104 TO 1744 STEP 
128 

8080 GOSUB 8500 

8090 NEXT XX 

8095 PRINT : PRINT 

8100 PRINT ! PRINT DS;"PR#0" 

8110 RETURN 
8500 FOR I = 0 TO 39 
8503 IF PEEK (XX + I) <30 THEN 
PRINT CHRS < PEEK <XX + I) 

+ 192);: GOTO 8520 
8510 PRINT CHRS < PEEK <XX + I) 

> : 

8520 NEXT I 

8530 PRINT 

8540 RETURN 

9700 SUM = O 

9710 RP = 0 

9720 FOR I = 1 TO 13 

9730 SUM = SUM «■ PU<M<I)> 

9740 NEXT I 

9750 IF SUM > NN THEN PP = 1 
9760 RETURN 

9990 HOME : INPUT "VUOI MEMORIZZ 
ORE LE MONI? <S/N> ";MEMS: IF 
MEMS = "S" THEN GOSUB 2000 
9995 INPUT "VUOI L’USCITO SU STO 
MPONTE? <S/N) ";STS 

ÌOOOO HOME : FOR J = 1 TO 53:C<J 
) = Oi NEXT JiK = 39:T = UT 
T = 1 

ÌOOIO FOR I « I TO Ji PRINT "DOM 
MI LE CORTE DI ";ES<I)iLL = 

0 

10020 FOR J « 1 10 4! PRINT FS(J 

) . ii H , 

10030 INPUT KKS!LL = LL + L.EN < 
KKS)t IF LL > 17 THEN PRINT 
"N. CORTE ERROTO !! ": GET K 
KS: GOTO 10000 

10040 IF KKS = THEN 10430 
10050 IF KKS = "ERR" THEN 10000 
10060 FOR L » 1 TO LEN <KKS> 

10070 RR = VOL < MIDS <KKS,L,1> > 

10080 IF RR = 1 THEN 10150 
10090 IF MIDS <KKS,L,1) = "0" THEN 
PRINT "INSERIMENTO ERROTO'' 

" GET KKS: GOTO 10000 
10100 IF RR « 0 THEN 10200 
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ÌOUO IF C <RR + K> » 1 THEN PRINT 
"CORTO 610’ ASSEGNATA GET 
KK*s GOTO 10000 

10120 C(RR + K> * 18 M <T> » RR + K 
3 GOTO 10400 

10150 IF L = l.EN (KK*> THEN PRINT 
"INSERIMENTO ERROTOM "s GET 
KK*8 GOTO 10000 

10160 IF MIO* <KK*,L +1,1) < > 

"0" THEN PRINT "INSERIMENTO 
ERROTO! f "s GE'T KK* : GOTO 1 
0000 

10170 IF C<10 + K) « 1 THEN PRINT 
"CORTA GIÀ’ ASSEGNATO ”s SET 
KK*» GOTO 10000 

10180 C(10 + K) - i»L = L + 1»M <T 
) = 10 + K« GOTO 10400 
10200 IF MID* (KK*,L,1) < > “J 

» THEN 10240 

10210 IF C<11 + K) = 1 THEN PRINT 
"CARTA GIÀ’ ASSEGNATO "« GET 
KK* « GOTO 10000 

10220 CUI + K) = 11M<T) = 11 + K 
8 GOTO 10400 

10240 IF MID* (KK*.L,1) < > "Q 

" THEN 10270 

10250 IF C <12 + K) * 1 THEN PRINT 
"CARTA GIÀ’ ASSEGNATO "» GET 
KK*! GOTO 10000 

10260 CUI + K) * 1 i M <T) = 12 + K 
s GOTO 10400 

10270 IF MID* (KK*,L,1> < > "K 

" THEN 10310 

10280 IF C<13 + K) = 1 THEN PRINT 
"CARTA GIÀ’ ASSEGNATO "s GET 
KK* 8 GOTO 10000 

10290 C(13 + K> = 1 »M(T) = 13 + K 
8 GOTO 10400 

10310 IF MID* (KK*,L,1) < > "A 

» THEN PRINT "INSERIMENTO E 
RRATO! ! "s GET KK*s GOTO 100 
00 

10320 IF C(14 + K) = 1 THEN PRINT 
"CARTA GIÀ’ ASSEGNATO "8 GET 
KK* s GOTO 10000 

10330 C(14 + K> = 18 M(T) = 14 + K 

10400 T = T + 1 
10410 NEXT L 

10420 FOR MM = TT TO T - lsA(MM, 

I) = M(MM)s NEXT MM 
10430 TT = T s K = K - 13 
10500 NEXT J 

10510 IF T <■ > 14 THEN PRINT " 

NUMERO CARTE ERRATO "8 GET K 
K*s GOTO 10000 
10520 K = 39 s T « 1t TT - 1 
10530 NEXT I 
10540 J *■> 1 


10550 

FOR I = 

2 

TO 

53 



10560 

IF C(I> 

= 

0 

THEN A(J, 

4) 

s 

I 

8J * J + 

1 





10570 

NEXT I 






10580 

FOR I = 

1 

TO 

13 J N(I) 

m 

A(I 

» 

1)8 NEXT 

I 





10582 

FOR I = 

1 

TO 

138 S(I) 

s 

A(I 

» 

2)» NEXT 

I 




. 

10584 

FOR I = 

1 

TO 

13 8 E '( I ) 

= 

A(I 

* 

3)s NEXT 

I 





10586 

FOR I = 

1 

TO 

1380(1) 

= 

A(I 

• 

4)8 NEXT 

I 





10588 

HOME 8K 

S 

1 





10600 FOR II » 53 TO 2 STEP - 1 

10610 IF C(II> =0 THEN 0(K) = I 
I»K « K + 1 
10620 NEXT II8 HOME 

10689 GOSUB 6000 

10690 GOSUB 3000 

10695 IF ST* * "S" THEN GOSUB 8 
OOO 

10700 IF MEM* = "S" THEN GOSUB 
21008 GOSUB 2200 

10710 VTAB 238 PRINT "ALTRE MANI 
?" ; 8 GET KZ* 

10720 IF KZ* = "S" THEN 10000 
10730 GOTO 56 


MANO N«1 

P 109 
C Adi 04 
G J98742 
F A 


N 


237JQKA P 
3 C 
10G G 
356 F 


P 5 

0 E C K8752 
G 65 

F J10982 


P 864 
C G96 
G AK3 
F KG74 


Figura 1. Un esempio di distribuzione delle carte. 
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Giochiamo 
a bridge 
con Apple II 


2250 aggiorna il primo record del 
file N-MANI contenente il numero 
di mani registrate; 2400-2450 inizia- 
lizza l’archivio). 

2500-2600 Stampa un certo numero 
di mani contenute nell’archivio (op¬ 
zione 3 del menu iniziale). 
3000-3080 Richiama la subroutine 
di visualizzazione 5000 per le mani 
dei 4 giocatori. 

5000-5230 È la routine di visualizza¬ 
zione della mano di un giocatore. 
Effettua una codifica del vettore M 
contenente i numeri compresi tra 2 e 
53 rappresentativi delle carte e vi¬ 
sualizza la mano relativa. La varia¬ 
bile FLAG serve per poter distin¬ 
guere la mano di Ovest da quella 
degli altri giocatori. Questo perchè 
per maggior chiarezza, le carte di 
Ovest sono rappresentate giustifica¬ 
te a destra, per cui venendo stampa¬ 
te da destra verso sinistra richiedo¬ 
no un algoritmo diverso per la stam¬ 
pa (figura 1). 

8000-8540 Uno sguardo particolare 
a questa routine molto semplice che 


permette di ottenere l’output dello 
schermo su stampante. Come è no¬ 
to, nell’Apple, la memoria che viene 
usata per la pagina primaria di testo 
inizia alla locazione 1024 e si estende 
fino alla locazione 2047. Ogni linea 
del video è rappresentata con 40 cel¬ 
le di memoria consecutive, ma l’in¬ 
dirizzo della prima cella di memoria 
della linea successiva non è consecu¬ 
tivo all’ultima cella di memoria del¬ 
la linea precedente. Ciò non permet¬ 
te di ottenere con un unico loop il 
contenuto della memoria video. Vi è 
però una certa regolarità nell’indi¬ 
rizzo della prima cella di ogni linea, 
per cui si è potuto ottenere l’output 
dello schermo usando 3 soli loop 
invece di 24. La linea 8503 serve per 
ottenere la stampa dei caratteri in 
inverse. 

10000-10730 È la parte del program¬ 
ma che permette di accettare le carte 
da tastiera. Per poter sfruttare Io 
stesso algoritmo di visualizzazione, 
in questo viene effettuata una dop¬ 
pia codifica. Le carte vengono inse¬ 


rite con la loro effettiva rappresen¬ 
tazione a partire da quelle possedute 
da NORD; si daranno in sequenza 
prima le carte di picche, poi quelle di 
cuori e infine quelle di quadri e di 
fiori. Si proseguirà poi con lo stesso 
ordine inserendo le carte di SUD e di 
EST (quelle di OVEST sono calcola¬ 
te dal programma ovviamente per 
esclusione). 

Ad esempio per comunicare all’Ap¬ 
ple che NORD possiede A, Q, 10, 7, 
3 di picche si deve digitare proprio 
AQ1073 e poi RETURN. 

A questo punto le carte inserite 
vengono codificate con i numeri da 
2 a 53 secondo il criterio già visto e 
successivamente vengono decodifi¬ 
cate e visualizzate su video mediante 
la subroutinc 5000. 

Tale scelta, pur non essendo ottima 
dal punto di vista del tempo di vi¬ 
sualizzazione, tuttavia permette di 
sfruttare la stessa routine di visualiz¬ 
zazione usata nella generazione ca¬ 
suale. 


> 
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erraggio 


Un programma 
ricreativo e istruttivo 
per Sharp MZ 700, C 64 
e TI99 


di Martino Sangiorgio 

N ato come esercitazione 
pratica su diversi elabora¬ 
tori, seguita a un corso te¬ 
orico di programmazione in BA¬ 
SIC, il programma risente molto 
della necessità di essere, nel contem¬ 
po, estremamente chiaro e adattabi¬ 
le a tutti gli elaboratori utilizzati du¬ 
rante il corso (in particolare, oltre 
allo Sharp MZ 700, erano presenti 
Texas TI99/4A, Commodore 64, 
Sinclair ZX Spectrum). Questo giu¬ 
stifica la lunghezza del listato; il 
tempo di digitazione è comunque 
compensato all’atto dell’utilizzo di 
questo appassionante gioco. 


Funzionamento del programma 

All’inizio viene emesso un menu 
per la scelta del pianeta su cui atter¬ 
rare. I pianeti previsti sono i seguen¬ 
ti: 

1 = Luna; 

2 = Marte; 

3 = Venere; 

4 = Saturno. 

Poiché la gravità dei pianeti elencati 
è via via sempre maggiore, anche il 
livello di difficoltà è crescente. A 
richiesta è possibile ottenere a video 
le informazioni necessarie al corret¬ 
to uso del programma. Si consiglia, 
almeno la prima volta che si esegue 
il programma, di far uso di questa 
opzione; in seguito potrà non servire 
più. 

Il programma evidenzia quindi sul 
video i valori iniziali della velocità 
dell’astronave (in km/h), dell’altez¬ 
za di questa rispetto alla superficie 
del pianeta (in m) e del carburante a 
disposizione per l’atterraggio (in li¬ 
tri). Viene poi formulata la doman¬ 


da: “Volete accendere i retrorazzi?”. 
Se la risposta è negativa (si digita 
cioè “N”), l’astronave precipita in 
caduta libera verso il pianeta per un 
tempo di 5 secondi. La successiva 
maschera video mostrerà quindi i 
nuovi valori di altezza e velocità mo¬ 
dificati in base alle leggi fisiche della 
caduta dei gravi (vedere “caduta li¬ 
bera”). La quantità di carburante 
resterà, naturalmente, invariata. 

Se la risposta alla domanda prece¬ 
dente è positiva (viene cioè digitato 
“S”), due ulteriori domande vengo¬ 
no poste al giocatore: quanti retro- 
razzi si vogliono accendere e per 
quanto tempo. 

L’astronave ha a disposizione 5 
retrorazzi, ognuno dei quali consu¬ 
ma 150 litri di carburante ogni se¬ 
condo. Per consentire la frenata è 
possibile quindi accendere da 1 a 5 
retrorazzi, per un tempo variabile 
(in base alle necessità) da 0.1 secondi 
a 99,9 secondi. Naturalmente, ad 
ogni accensione di retrorazzi verrà 


Listato 1. Il programma Atterraggio. 


180 REM U1 = UELOCITA' DI USCITA DEL 

10 REM *-* 


CARBURANTE DAI RETRORAZZI 

20 REM * * 


Cin m/s 3 

30 REM * ATTERRAGGIO SUI PIANETI * 


190 REM U = UELOCITA' RAGGIUNTACin 

40 REH * * 


km/h 3 

50 REM ^PERSONAL COMPUTER SHARP MZ700* 


200 REM S = SPAZIO PERCORSO Cin metri! 

60 REM * * 


210 REM C = CARBURANTE RIMASTOCin li- 

70 REM *-* 


t r i 3 

80 REM SI = SCELTA DEL PIANETA 


220 REM H = ALTEZZA RAGGIUNTACin metri! 

90 REM 1$ = SI/NO ISTRUZIONI 


230 REM M = MASSA RESIDUA DELL'ASTRO- 

100 REM G = GRAUITA DEL PIANETA 


NAUECin Kg 3 

110 REM R$ = SI/NO RETRORAZZI 


240 REM M9 = MASSA CONSUMATA Cin Kg 3 

120 REM S2 = SUITCH DI FINE PROGRAMMA 


250 REM N = NUMERO DI RETRORAZZI ACCESI 

130 REM H0 = ALTEZZA INIZIALE Cin metri I 


260 REM T = TEMPO DI ACCENSIONE CONSI- 

140 REM U0 = UELOCITA' INIZIALE Cin 


DERATO Cin sec.3 

km/h 3 


270 REM A = ACCELERAZIONE RISULTANTE 

150 REM C0 = CARBURANTE INIZIALECin li- 


!n m/sec.*sec.3 

t r i 3 


280 REM U2 = UELOCITA' INIZIALE Cin m/s 3 

160 REM M0 = MASSA INIZIALE ASTRONAUE 


290 REM U3 = UELOCITA' RAGGIUNTA Cin 

'70 REM MI = MASSA DEL CARBURANTE CON- 


m/s 3 

SUMATO OGNI SECONDO Cin kg! 


300 REM * Scelta del pianeta * 
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Atterraggio 


Segue listalo Atterraggio. 

310 REH scelta del pianeta 

320 GOSUB 630 

330 IF SI-5 GOTO 4130 

340 REM # Richiesta istruzioni * 

350 GOSUB 870 

360 IF I*="N" GOTO 330 

370 REFI * Stampa istruzioni t 

380 GOSUB 970 

.390 REM * Inizia Iizzazione variabili * 
<100 GOSUB 1410 

410 QN SI GOTO 420,440,460,480 

420 G=1.6 

430 GOTO 490 

440 G=3. 7 

450 GOTO 490 

460 G=8.7 

470 GOTO 490 

480 G=11.3 

490 REH * Stampa maschera centrale * 

500 GOSUB 1510 

510 REFI * Richiesta accensione retrorazz 
! * 

520 GOSUB 1650 

530 IF R*="N"GOTO 570 

540 REFI * Accensione retrorazzi * 


550 

GOSUB 

1870 




560 

GOTO 

590 




570 

REH * 

Caduta 1Ibera * 


580 

GOSUB 

2790 




590 

IF S2 

=1 GOTO 320 




600 

REFI * 

Rica1 co 1o 

uarlabili * 


610 

GOSUB 

3210 




620 

GOTO ■ 

490 




630 

REFI * 





640 

REFI * 

Sce1ta 

del pianeta 

* 

650 

REFI * 








♦ 

660 

COLOR 

, ,0,6 




670 

PRINT 

"B":PRINT: 

PRINT 


680 

PRINT 

" Con un'astronaue dooete 

atte 

•'rare su" 





690 

PRINT 

" uno de i 

seguenti pianet 

| : ’ ! 

700 

PRINT 





710 

PRINT 

TABI 145 ' 

s 

LUNA” 


720 

PRINT 





730 

PRINT 

TABU 4 ) J "2 

a 

F1ARTF." 


740 

PRINT 





750 

PRINT 

TAB114);"3 

s 

UENERE" 


760 

PRINT 





770 

PRINT 

TAB114); 4 

a 

SATURNO" 


780 

PRINT 





790 

PRINT 

TABI 14) ;"5 

a 

FINE PROGRAHHA" 

800 

PRINT 






consumato del carburante, per cui si 
dovrà fare attenzione a non restare a 
secco. Verranno quindi riproposti a 
video i nuovi valori di altezza, velo¬ 
cità e quantità di carburante, calco¬ 
lati dalla routine “accensione retro- 
razzi". Se il nuovo valore di velocità 
proposto fosse negativo, significa 
che sono stati accesi troppi retroraz¬ 
zi per un tempo eccessivo, per cui 
l’astronave, invece di scendere sul 
pianeta, se ne sta allontanando. Ciò 
può succedere di frequente sui pia¬ 
neti a bassa gravità (per esempio la 
Luna); difficilmente capiterà sui 
pianeti a gravità maggiore. Se l’a¬ 
stronave arriva alla superficie del 
pianeta con una velocità inferiore ai 
9 km/h, vuol dire che l’atterraggio si 
è felicemente concluso ed una op¬ 
portuna maschera video si congra¬ 
tulerà col giocatore. 


Se l’astronave arriva alla superficie 
del pianeta con una velocità supe¬ 
riore ai 9 km/h, verrà emessa una 
maschera per evidenziare il disastro; 
verranno anche visualizzati il valore 
della velocità all’atto dell’impatto 
con la superficie e la quantità di car¬ 
burante rimasta. Se l’astronave ri¬ 
mane senza carburante prima anco¬ 
ra di aver potuto raggiungere la su¬ 
perficie del pianeta, verrà emessa 
una maschera che evidenzia a quanti 
metri di altezza è avvenuto il fatto e 
la velocità con cui l’astronave è pre¬ 
cipitata poi sulla superficie del pia¬ 
neta. 

Caduta libera 

La situazione iniziale dell’astro¬ 
nave è evidenziata dalla figura 1. 
Le leggi fisiche che regolano il moto 



Figura 1. Situazione iniziale. 


di oggetti in caduta libera in un cam¬ 
po gravitazionale sono le seguenti: 
v = vo + gt 
s = vot 4- ‘/ 2 gt 2 
dove: 

vo è la velocità iniziale (in m/sec); 
v è la velocità dopo il tempo t (in 
m/sec); 
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Il Jacksoniano ha 


Conosci la Jackson? 

La Jackson è un grande Gruppo Editoriale 
con un profondo know-how tecnico¬ 
scientifico. Pubblica 12 periodici che spaziano 
nell'intero campo dell'informatica e 
dell'elettronica. Ma non solo. Ha realizzato 


una Biblioteca - unica in Italia - che 
comprende più di 150 libri specializzati. Alla 
Jackson, insomma, trovi la cultura del XXI° 
secolo. E la Jackson ha già creato tantissimi 
Jacksoniani: centinaia di migliaia. I lettori dei 
periodici Jackson sono gente entusiasta dei 









il sapere 

computer e dell'elettronica, lettori che sanno 
scegliere, e scelgono il meglio. Per questo 
sono sempre un po' più avanti, più informati' 
e aggiornati. Jacksoniani si diventa; e oggi il 
modo più conveniente è quello di abbonarsi. 

Gira pagina. 






Il Jacksoniano si 


Il Jacksoniano è una persona che sa 
scegliere: per questo sceglie anche il modo 
più comodo e vantaggioso per ricevere la 
sua rivista: l'abbonamento. Abbonarsi 
conviene! Hai un risparmio immediato, la 
certezza di non perdere alcun numero e di 


ricevere la rivista puntualmente a casa tua; 
e ti metti anche al riparo da possibili 
aumenti del prezzo di copertina. In più 
usufruisci di condizioni particolari 
nell'acquisto dei libri Jackson e partecipi al 
grande concorso. In palio ci sono 100 







AUT. MIN. CONC 


VINCI 100 COMMODORE 64 


Abbonatevi subito: tra tutti coloro che si abboneranno a una o più riviste Jackson 
tra il 15/9/84 e il 28/2/85 saranno estratti a sorte mensilmente 20 Commodore 64. 



abbona e vince* 


Commodore 64, un grande personal, 
professionale, sofisticato, con 64 K di 
memoria, un sintetizzatore sonoro 
professionale, effetti tridimensionali. 
Cosa devi fare? Semplicemente 
sottoscrivere un abbonamento. 



GRUPPO 

EDITORIALE 

JACKSON 






















g è l’accelerazione di gravità (in 
m/sec • sec); 

t è il tempo preso in considera¬ 
zione; 

s è lo spazio percorso nel tempo 
t (in m). 

In questo caso vo è dato dalla varia¬ 
bile Vo, v dalla variabile V, g dalla 
variabile G (impostata inizialmente 
in dipendenza del pianeta scelto), t è 
dato dalla variabile T, impostata 
inizialmente al valore 5 e s è dato 
dalla variabile S. Le unità di misura 
utilizzate vanno bene, tranne quelle 
della velocità. Si dovrà passare da 
km/h a m/sec con la relazione: 

V2 = Vo/3,6. 

II nuovo valore di velocità sarà dato 
da: 

V3 = V2 + G ★ T 

che, ritrasformato in km/h, diventa: 

V = V3 ★ 3,6 

È possibile ora calcolare lo spazio 
percorso: 

S - (V2 ★ T) + ((G ★ T 2 ) ★ 0,5) 
Si possono ora presentare tre casi: 

a) S = Ho (figura 2) 

In questo caso, se la velocità V è 
compresa tra -9 e +9 km/h, vuol 
dire che l’astronave è felicemente at¬ 
terrata e verrà proposta la maschera 
“BRAVO”, altrimenti l’astronave è 
atterrata ad una velocità troppo ele¬ 
vata, per cui verrà proposta la ma¬ 
schera “DISASTRO”, che eviden¬ 
zia i valori di V per la velocità e Co 
per il carburante. 

b) S < Ho (figura 3) 

In questo caso l’astronave non è an¬ 
cora atterrata, per cui verranno ese¬ 
guite nell’ordine: 

H = Ho - S 
Ho = H 
Vo = V 

e con questi nuovi valori di Ho e Vo 
(Co è rimasto invariato) verrà ripro¬ 
posta la maschera centrale. 

c) S > Ho (figura 4) 

Vuol dire che l’astronave ha supera¬ 
to la superficie del pianeta e si è 
inoltrata sottoterra. Sembrerebbe 
un disastro, ma con un tempo infe¬ 
riore ai 5 sec avrebbe forse potuto 
atterrare (condizione S = Ho con 
velocità compresa tra —9 e +9 


km/h). Si valuta la velocità all’atto 
dell’impatto sulla superficie ese¬ 
guendo nell’ordine: 

.j. _ V 2 T y/Vz" +2GHo 
G 

V3 = V2 + GT 
V = V3 ★ 3,6 

Se ora V sarà compreso tra -9 e +9, 
verrà proposta la maschera “BRA¬ 
VO”, altrimenti verrà stampata la 
maschera “DISASTRO”, eviden¬ 
ziando i valori di V e Co. 


Accensione retrorazzi 

Il numero dei retrorazzi da consi¬ 
derare, letto da video, viene posto 
nella variabile N. Il tempo di accen¬ 
sione, anch’esso letto da video, vie¬ 
ne posto nella variabile T. La quan¬ 
tità di carburante consumato al se¬ 
condo da ogni retrorazzo ( 150 litri) è 
registrata nella variabile M 1, mentre 
in Co è contenuta la quantità di car¬ 
burante rimasta. 

Se ora si avrà: 

(M1 ★ N ★ T) Ss Co 
significa che l’attuale accensione dei 
retrorazzi consuma tutto il carbu¬ 
rante rimasto; in tal caso verrà ese¬ 
guita la routine “carburante termi¬ 
nato”. 

In caso contrario applicheremo le 
leggi del moto uniformemente acce¬ 
lerato: 

V = Vo + at 
s = vot + '/2 a t 2 
In questo caso l’accelerazione (a) è 
la risultante tra la gravità (diretta 
verso il pianeta) e quella data dai 
retrorazzi accesi (diretta in senso 
opposto); essa può anche diventare 
negativa, il che sta a significare che 
la potenza dei retrorazzi predomina 
sulla gravità e l’astronave tende 
quindi ad allontanarsi dal pianeta. 
La formula da applicare è la seguen¬ 
te (derivabile dalla fondamentale F 
= Fg © Fr) (vedere figura 5). 


MAt 



Figura 2. L'astronave è arrivata sulla 
superficie (S = Ho). 

Se 9 km/h. l'atterraggio è conclu¬ 
so felicemente, altrimenti si è verifi¬ 
cato un disastro. 




A 

Figura 4. Situazione in cui. nel tempo 
considerato, l'astronave percorrereb¬ 
be uno spazio S superiore alla distan¬ 
za Ho dalla superficie (cioè S > Ho). 
Poiché tale caso è improbabile, biso¬ 
gna riconsiderare le formule fìsiche 
dei moto, ponendo S = Ho e calcolan¬ 
do il valore della velocità in questo 
caso (cioè all'atto dell'impatto con la 
superficie). Se v ^ 9 km/h, l'atter¬ 
raggio è felicemente concluso, altri¬ 
menti si è verificato un disastro. 
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Offerta valida solo fino al 28-2-85 


Il Jocksoniano sceglie 

tra 14 top... 

Jackson & Sons 



Jackson : una grande, esauriente scelta di periodici 
per sapere tutto ciò che è indispensabile. 

In più abbonandoti a queste riviste puoi moltiplicare 
le tue possibilità di vincere il favoloso premio del 
grande concorso Jackson. 

Videogiochi, la guida indiscussa al fantastico 
mondo dei videogames,- 

Home Computer, la rivista del computer in casa; 

Personal Software, la rivista dedicata al software 
dei personal computer; 

Bit, la prima rivista europea di 
personal computer, software, accessori, 
la più prestigiosa e più diffusa 
in Italia,- 

Informatica Oggi, il punto di riferimento obbligato 
per chi si occupa di sistemi EDP e di Office 
Automation,- 


PC Magazine, la prima rivista italiana dei sistemi 
MS-DOS, Personal Computer IBM e compatibili; 
Personal O, la rivista indipendente per gli utenti di 
PC Olivetti; 

Compuscuola, la rivista di informatica nella 
didattica, per la scuola italiana; 

Telecomunicazioni Oggi, la rivista di 

telecomunicazioni e telematica,- 

Automazione Oggi, il mensile della nuova 

automazione industriale,- 

Elettronica Oggi, la più autorevole rivista di 

elettronica professionale, strumentazione e 

componenti; 

L’Elettronica, il quindicinale di politica industriale, 
componentistica, informatica e telecomunicazioni; 
Elektor, la più diffusa rivista europea di 
applicazioni e progettazione elettronica. 

Strumenti musicali, il periodico di strumenti musicali 
e computer-music. 


...e ha una biblioteca 
i ricchissima tutta per lui. 

Z (con uno sconto del 20%)* 

§ Guarda a pag. 99 i titoli della Biblioteca Jackson. 

CN 

"S 

o 

c 

3 GRUPPO EDITORIALE JACKSON 












Attcrraggio 


Segue listato Atterraggio. 

810 PRINT 

820 PRINT •• ESPRII1ERE SCELTA " 

830 GET SI 

840 IF SI<=0 GOTO 830 
850 IE S1> 5 GOTO 830 
860 RETURN 

870 REM *-* 

880 REM ^Richiesta SI o NO istruzioni* 

890 RETI *-* 

900 RETI cancella schermo -'PRINT "B" 

910 PRINT "UOLETE ULTERIORI ISTRUZIONI ? 

fS/N) " 

920 GET 1$ 

330 IF I$="S" GOTO 960 
940 IF I *-="N" GOTO 960 
950 GOTO 920 
960 RETURN 


970 RETI *-* 

980 RETI * Stampa istruzioni * 

990 RETI *-* 


>000 RETI cancella schermo SPRINT "B" 

>010 PRINT 

>020 PRINT ' Se non rallentata da retror 
ozz i i la’’ 

>030 PRINT " astronave precipita sul pia 
neta sce I to'' 

>040 PRINT " seguendo la Ie 99 e della cad 
ut a dei" 

>050 PRINT " 9 rauiiaumentando man mano v 
e locita'e" 

>060 PRINT " spazio percorso in base all 


a gravita' 1 

>070 PRINT " del pianeta stesso.In tal c 
oso vengono" 

1080 PRINT " determinati ì nuovi valori 
di altezza" 

1090 PRINT " e velocita' ogni 5 secondi. 
Per consen-" 

1100 PRINT " tire la frenala e quindi I' 
otterrag-" 

1110 PRINT " gio, e' possibile accendere 
da 1 a 5 " 

1120 PRINT " retrorazzi per un tempo pre 
stataiI ito," 

>130 PRINT " variabile tra 0.1 e 99.99 s 
econdi." 

1140 PRINT 
1150 PRINT 

1160 PRINT " BATTERE UN TAST0" 

1170 GET K*:IF K$="" GOTO 1170 
1180 PRINT "B" 

1190 PRINT 

1200 PRINT " I retrorazzi consumano (nat 
uralmen-" 

1210 PRINT " tei, ad ogni accensione, un 
o parte " 

1220 PRINT " del carburante : attenzione 
auindi a " 

>230 PRINT " non rimanerne senza. Il con 
sumo di " 

1240 PRINT " carburante e' costante nell 
'unita' " 


dove: 

Am = perdita di massa dall’astrona¬ 
ve (cioè carburante consumato); 

M = massa dell’astronave; 

At = intervallo di tempo considera¬ 
to; 

vr = velocità di uscita del carburan¬ 
te dai retrorazzi. 

Il valore di gècontenuto nella varia¬ 
bile G (impostata inizialmente in di¬ 
pendenza del pianeta scelto), Am è 
dato dal prodotto MI ★ N ★ T, vr è 
dato dalla variabile VI, M è dato 
dalla variabile Moe At dalla variabi¬ 
le T, meni re il valore di a verrà posto 
nella variabile A. Si avrà quindi: 

A = G —- (v. fig. 6) 

Mo 

Si potranno quindi calcolare i nuovi 
valori di velocità, altezza c carbu¬ 
rante, utilizzando, nell’ordine, le se¬ 


guenti formule: 

V2 = Vo/3,6 
V3 = V 2 + A*T 
V = V 3 ★ 3,6 

S = (V 2 ★ T) + ((A ★ T t 2) ★ 
0,5) 

C = Co - (MI ★ N ★ T) 


Si propongono ora di nuovo i se¬ 
guenti tre casi: 
a) S = Ho (figura 2) 

Se V è compresa tra -9 e +9 km/h, 
verrà evidenziata la maschera 
“BRAVO”, altrimenti verrà propo¬ 
sta la maschera “DISASTRO”, evi- 



Figura 5. Risultato della composizio¬ 
ne di due forze aventi direzione qual¬ 
siasi (F = Fg © Fr). 


( 

f 


Figura 6. Risultato della composizio¬ 
ne di due forze aventi direzioni oppo¬ 
ste. La forza risultante èia differenza 
tra le due (F = Fg - Fr). 
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Ecco come ti abboni, 
risparmi, vinci. 


VINCI 100 COMMODORE 64 


Abbonatevi subito: tra tutti coloro che si abboneranno a una o più riviste Jackson 
tra il 15/9/84 e il 28/2/85 saranno estratti a sorte mensilmente 20 Commodore 64. 



r 

i 

i 


Per sottoscrivere abbonamenti potrete utilizzare il modulo di cc/p inserito in questo fascicolo o inviare un assegno allegato al tagliando sottostante. 


Gruppo Editoriale Jackson S.r.l. - Via Rossellini, 12 - 20124 Milano, allegando assegno o fotocopia della ricevuta di 
versamento con vaglia postale intestato a GRUPPO EDITORIALE JACKSON - MILANO. 

□ Si, desidero sottoscrivere un abbonamento a: 


□ Videogiochi 111 n.l L 30.000 anziché L 38.500 

□ Home Computer (Il n.l L 31.500 anziché L 38.500 

□ Personal Software 111 n.l L 34.000 anziché L 44.000 

□ Bit 11 1 n.l L 43.000 anziché L 55.000 

□ Informatica Oggi 111 n.l L 31.000 anziché L 38.500 

□ PC Magazine 110 n.l L 40.000 anziché L. 50.000 

□ Personal O HO n.l L 35.000 anziché L 40.000 


□ Compuscuola 19 n.l L 15.000 anziché L 18.000 

□ Telecomunicazioni Oggi 110 n.l L 28.000 anziché L 35.000 

□ Automazione Oggi 111 n.l L 30.500 anziché L 38.500 

□ Elettronica Oggi 111 n.l L 36.000 anziché L 44.000 

□ L’Elettronica 122 n.l L 44.000 

□ Elektor 112 n.l L 29.000 anziché L. 36.000 

□ Strumenti Musicali (10 n.l L 24.000 anziché L 30.000 
Attenzione per abbonamento all'estero le tariffe devono essere 
aumentate del 50% 


E c'è un super-risparmio a chi si abbona a due o più riviste. 

Tutti coloro cHe sottoscrivono Tabbonanterto u due o pn< riviste godono cfi un prezzo ulteriormente agevolato, come appare nello seguente lobellina 
Esemprot Bit + Informatico Oggi L 43.000+31.000*74.000 meno L 2.000“L 72.000 


Abbonamento 

o 8 riviste: L 20.000 in meno sullo sommo degli 8 prezzi d'obbonomento 

o 2 riviste L 2.000 in meno sulla sommo dei 2 prezzi d'obbonomento 

a 9 riviste L 25.000 In meno sulla sommo dei 9 prezzi d’abbonamento 

o 3 riviste L 4.000 in meno sullo somma dei 3 prezzi d'abbonamento 

a 10 riviste L 30.000 In meno sullo sommo dei 10 prezzi d'obbonomento 

a 4 riviste L 7.000 in meno sullo sommo dei 4 prezzi d’obbonomento 

a 11 riviste L 35.000 In meno sullo sommo degli 11 prezzi d’abbonamento 

a 5 riviste L 10.000 in meno sullo sommo del 5 prezzi d'obbonomento 

a 12 riviste L 40.000 In meno sullo sommo del 12 prezzi d'obbonomento 

a 6 riviste L 13.000 in meno sulla somma dei 6 prezzi d'abbonamento 

a 13 riviste L 44500 in meno sullo sommo dei 13 prezzi d'obbonomento 

0 7 riviste L 16.000 in meno sullo sommo dei 7 prezzi d'abbonamento 

o 14 riviste L 50.000 in meno sulla sommo dei 14 prezzi d’obbonomento 


□ Allego assegno n°_dello Banco_ 

□ Ho effettuato versamento con vaglio postale e allego fotocopia dello ricevuto 

Nome_ 

Cognome_ 

Azienda_ 

CAP._Città_ 



GRUPPO 

EDITORIALE 

JACKSON 


ETHOS 





































SPECTRUM. 

UN VERO 
COMPUTER. 





COMPUTER 


DIVISION OF GB 


E) 


E IN QUESTI GIORNI CI SONO : 


N'8 CASSETTE SOFTWARE IN DOTAZIONE A CHI ACQUISTA UNO SPECTRUM 48K !! 





Segue listato Atterraggio. 


1250 PRINT " 
o gravi- " 
'260 PRINT " 
vovi va- " 
'270 PRINT " 
elocita'" 
1280 PRINT " 
Tempo " 

1290 PRINT " 


dì tempo e nor> dipende dall 
ta' del pianeta scelto. I n 
lori dell'altezza e della v 
vengono determinaii dopo il 
che avete stabilito per l'a 


ccens1o-" 

1300 PRINT " ne dei retrorazzi. " 

'310 PRINT 
1320 PRINT 

1330 PRINT " AUGURI E BUONA FORTUN 

i=l 2 " 

1340 PRINT 
1350 PRINT 

1360 PRINT " BATTERE UN TASTO" 

1370 GET K$:IF K$ = "" GOTO 1370 
1.380 PRINT "B" 

1390 RETURN 

1400 REH *-* 

'410 REM * Inizia IizzazIone variabili * 

1420 REH *-* 

'430 U1=1000 
1440 ni=150 

1450 H0=INTC10001*RND(133+30000 
'460 U0=INTC41*RNDC133+140 
1470 C0=H0+INTC4001*RNDC133+4000 
'480 M0=C0+INTC2001*RNDC133+10000 
'490 RETURN 

1500 REH *-* 

'510 REfl * Stampa maschera centrale * 

1520 REH *-* 

'530 PRINT "B" 

1540 PRINT 
1550 PRINT 

1560 PRINT TABC43 i ALTEZZA";TABC173;H0;T 


ABC24 3 >"me tri" 

'570 PRINT 

1580 PRINT TABI43i UELOCITA'"jTABC 173 >00 


ITABC243 j"Km/h" 
1590 PRINT 


1600 PRINT TABC43i CARBURANTE"i T ABC173;C 


0JTABC243 i litri" 

1610 PRINT 
1620 PRINT 
1630 RETURN 

1640 REH *-* 

'650 REH * Richiesta accensione * 

'660 REH * retrorazzi * 

'670 REH *-* 

'680 PRINT " UOLETE ACCENDERE I RETRORAZ 

ZI ?CS^N3" 


Riviste firmate 
JACKSON 


La prima Rivista europea di personal 
computer, software e accessori. 

Con test, novità, analisi del 
mercato... 

11 numeri all'anno 
L. 4.000 a numero 
Abbonamento: solo L. 35.000 

PERSONAL 

SOFTWARE 

Aspetti e problemi del software per 
personal computer, programmi, 
giochi e sistemi operativi 

10 numeri all'anno. 

L. 3.500 a numero 
Abbonamento: solo L. 28.000 

nORMATlCA 

La Rivista professionale per chi si 
occupa di sistemi: dai 
microcomputer ai mini, ai supermmi. 
ai mainframe Con notizie in 
anteprima daH'America. 

11 numeri all'anno. 

L. 3.000 a numero 
Abbonamento: solo L. 27.000 

UiDCO 

GiOChi 

La guida indiscussa al fantastico 
mondo dei videogames. La più 
eccitante, divertente, istruttiva 
rassegna del settore. 

11 numeri all’anno. 

L. 3.000 a numero 
Abbonamento: solo L. 25.000 

elettronica 

OGGI 

Da sedici anni 1 punto di riferimento 
più qualificato per chi voglia 
aggiornarsi su prodotti, applicazioni, 
tecnologie, mercati, in Italia e 
all'estero. 

11 numeri all'anno. 

L. 3.500 a numero 
Abbonamento: solo L. 31.000 


TElettronica 

Quindicinale di politica industriale, 
componentistica, informatica e 
telecomunicazioni per uomini di 
marketing, responsabili acquisti, 
manager di settore. 

22 numeri all'anno. 

1.2.500 a numero 
Abbonamento: solo l. 44.000 

AtHOMAIIONi 

Un'aggiornatissima panoramica 
delle nuove tecnologie 
microelettroniche e informatiche 
applicate allautomazione 
industriale. 

11 numeri all'anno. 

L. 3.000 a numero 
Abbonamento: solo L. 26.000 

ttkcomumamoni 

Le frontiere aperte dalla telematica, 
le telecomunicazioni professionali in 
tutti i loro sottosettori 
8 numeri all'anno. 

L. 3.500 a numero 
Abbonamento: solo l. 22.000 

elektor 

Il mensile di elettronica venduto in 
mezzo milione di copie e redatto in 7 
lingue. Con articoli su: applicazioni, 
progettazioni, sperimentazioni, 
invenzioni. 

10 numen all’anno. 

L. 3.000 a numero 
Numero doppio' L. 6.000 
Abbonamento, solo L. 28.000 




Il mondo delle 7 note in versione... 
elettronica Con test strumentali, 
novità e analisi del mercato, 
servizi speciali. 

10 numeri all'anno, 
t. 3.000 a numero 
Abbonamento: solo l. 24.000 


Quando l'informazione 
fa testo_ 

In busta chiusa inviate questo coupon a: 

Gruppo Editoriale Jackson - via Rosellini, 12 - 20124 Mi 

□ Desidero ricevere GRATIS un numero della 
Rivista. 


(allego L. 1 .OOO in francobolli per contributo spese di 
spedizione) 

□ Inviatemi GRATIS il Catalogo della Biblioteca JACKSON 
(allego L. 1,000 in francobolli per contributo spese di 
spedizione) 


Nome. 


. Cognome _ 


via. 


CAP. 


. Città . 
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Atterraggio 


Segue listalo Atterraggio. 

'690 GET R$ 

1700 IF R*="N" GOTO 1850 
'710 IF R$="S" GOTO 1730 
'720 GOTO 1690 

1730 RETI * Richiesta numero retrorazzi * 
7090 PRINT 
1740 PRINT 

1750 PRINT "QUANTI ? " 

'760 GET N 

1770 IF N<1 GOTO 1760 

1780 IF N>5 GOTO 1760 

'790 REM * Richiesta tempo di accensione 
retrorazzi * 

'800 PRINT 

1810 INPUT "PER QUANTO TEf1P0 ? ";T 
'820 IF CT> = .1)*CT<=99.93 GOTO 1850 
'830 GOSUB 1510 
1840 GOTO 1680 
1850 RETURN 

1860 REM *-* 

'870 REM * Accensione retrorazzi * 

'880 REM *-* 

'890 M9=INTCM1*N*T3 
'300 IF M9> =C0 GOTO 2280 
'910 A=G-CU1*ni*NVM0 
1920 U2=U0z3.6 
1930 U3=U2+A*T 
1940 y=U3*3.6 

'950 S=CU2*T)+(CA*TT2I*. 5] 

'960 S=INTCSI 
1970 U=INTCU) 


1980 C=C0-M9 

1990 IF S~H0 GOTO 2040 

2000 IF S>H0 GOTO 2140 

2010 REM * Non ancora atterrala * 

2020 S2=0 
2030 GOTO 2770 

2040 REM * Arrivata alla superficie * 
2050 S2=1 

2060 IF U<-9 GOTO 2110 

2070 IF U>9 GOTO 2110 

2080 REM * Stampa maschera 'BRAUO' * 

2090 GOSUB 3520 

2100 GOTO 2770 

2110 REM * Stampa maschera 'DISASTRO' * 
2120 GOSUB 3300 
2130 GOTO 2770 

2140 REM * Oltre la superficie * 

2150 S2=1 

2160 T=C-U2+SQRCU2T2+2*A*H0IVA 
2170 U3=U2+A*T 
2180 U=U3*3.6 
2190 U=INTCU) 

2200 IF U<-9 GOTO 2250 
2210 IF U>9 GOTO 2250 

2220 REM * Stampa maschera 'BRAUO' * 
2230 GOSUB 3520 
2240 GOTO 2770 

2250 REM * Stampa maschera 'DISASTRO' * 
2260 GOSUB 3300 
2270 GOTO 2770 

2280 REM * Carburante terminato * 


deliziando i valori di V e C. 

b) S < Ho (figura 3) 

L’astronave non è ancora atterrata, 
per cui si calcoleranno i nuovi valori 
iniziali, eseguendo nell’ordine: 

H = Ho — S 
M = Mo - (MI ★ N ★ T) 

Ho = H 
Vo = V 
Co = C 
Mo = M 

Con questi nuovi valori verrà ripro¬ 
posta la maschera centrale. 

c) S > Ho (figura 4) 

L’astronave è andata oltre la super¬ 
ficie del pianeta. Bisogna valutare 
se, al momento dell’impatto, aveva 
una velocità accettabile. Come visto 
in precedenza, verranno eseguite 
nell’ordine: 

T _ - V2 + VV : 2 4- 2»A*Ho 
A 


V3 = V2 + A ★ T 

V = V3 ★ 3,6 

Se ora V è compresa tra -9 e +9 
km/h, verrà stampata la maschera 
"BRAVO”, altrimenti verrà propo¬ 
sta la maschera "DISASTRO”, evi¬ 
denziando i valori di V e C. 

Carburante terminato 

Con la manovra in corso l’astro¬ 
nave esaurisce il carburante, per cui 
bisogna verificare se i valori intro¬ 
dotti permettono l’atterraggio. 
Verranno eseguiti quindi, nell’ordi¬ 
ne: 

V2 = Vo/3,6 

A = G — (Co ★ Vl/Mo ★ T) 
V3 = V2 + A ★ T 

V = V3 ★ 3,6 

S = V2 ★ T + ‘/ 2 A ★ T 2 
Si ripropongono ora di nuovo i tre 
casi: 


a) S = Ho (figura 2) 

Se V è compreso tra -9 e +9 km/h, 
verrà stampata la maschera “BRA¬ 
VO", altrimenti verrà visualizzata la 
maschera “DISASTRO" con i valo¬ 
ri di V per la velocità e con zero per il 
carburante. 

b) S < Ho (figura 3). 

L'astronave non è ancora atterrata, 
perciò, essendo rimasta senza car¬ 
burante, cadrà dall’ultima altezza 
raggiunta sulla superficie del piane¬ 
ta, seguendo le leggi già viste in pre¬ 
cedenza nella routine "CADUTA 
LIBERA”, schiantandosi ad una ve¬ 
locità che viene calcolata eseguendo 
nell’ordine: 

H = Ho - S 
V2 = V/3,6 

^ _ - V2 + \/V2 2 + 2 ★ G ★ H 

t -n- 

V3 = V2 + G ★ T 
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Atterraggio 


Segue listato Atterraggio. 

2290 U2=U0/3.6 

2300 A=G-CC0*U1 VCM0*T) 

2310 U3=U2tA*T 

2320 d=U3*3.6 

2330 S=r.U2*n + CCA*Tt23*.5} 

2340 S-INTCS) 

2350 U=INTCU3 
2360 C=0 
2370 S2=1 

2380 IF S=H0 GOTO 2550 
2390 IF S>H0 GOTO 2650 

2400 REFI * Non ancona allertato - caduta 
libera - * 

2410 H=H0-S 
2420 U2=U/'3.6 

2430 T=C-U2+SQRCU2T2+2*G.'CHJ 3/G 
2440 U3=U2+G*T 
2450 U=U3*3. 6 
2460 0=INTCU} 

2470 IF U<-9 GOTO 2520 

2480 IF U>9 GOTO 2520 

2490 REM * Stampa maschera 'BRAUO' * 

2500 GOSUB 3520 
2510 GOTO 2770 

2520 REM * Stampa maschera 'PECCATO' * 


Tabella 1. Elenco delle principali variabili. 

Ho = altezza iniziale (m) 

Vo = velocità iniziale (km/h) 

Co = carburante iniziale (I) 

Mo = massa iniziale dell’astronave (kg) 

V = velocità raggiunta (km/h) 

S = spazio percorso (m) 

C = carburante rimasto (I) 

N = numero retrorazzi accesi 
H = altezza raggiunta (m) 

T = tempo considerato (sec) 

M = massa residua dell’astronave (kg) 

MI = massa del carburante consumato ogni secon¬ 
do (kg) 

G = gravità del pianeta scelto (m/sec- sec) 

A = accelerazione risultante (m/sec-sec) 

VI = velocità di uscita del carburante dai retrorazzi 

(m/sec) 

Tabella 2. Valori delle accelerazioni di gravità 
dei diversi pianeti 

Luna G = 1.6 

Marte G = 3.7 

Venere G = 8.7 

Saturno G = 11.3 



2530 GOSUB 3740 
2540 GOTO 2770 

2550 REM * Arrivata alla superficie * 

2560 IF U<-9 GOTO 2610 

2570 IF U>9 GOTO 2610 

2580 REM * Stampa maschera 'BRAUO' * 

2590 GOSUB 3520 

2600 GOTO 2770 

2610 REM * Stampa maschera 'DISASTRO' * 
2620 GOSUB 3300 
2630 GOTO 2770 

2640 REM * Oltre la superficie * 

2650 T=C-U2+SQRCU2T2+2*A*H0)).'A 

2660 U3=U2+A*T 

2670 U=U3*3.6 

2680 U=JNTCU3 

2690 IF U<-9 GOTO 2740 

2700 IF U>9 GOTO 2740 

2710 REM * Stampa maschera 'BRAUO' * 

2720 GOSUB 3520 

2730 GOTO 2770 

2740 REM * Stampa maschera 'DISASTRO' * 
2750 GOSUB 3300 
2760 GOTO 2770 
2770 RETURN 

2780 REM *-* 

2790 REM * Caduta libera * 

2800 REM *-* 

2810 T=5 
2820 U2=U0/3.6 
2830 U3=U2+G*T 
2840 U=U3*3.6 
2850 M9=0 
2860 C=C0 

2870 S=CU2*T3+CCG*TT2)*.5]) 

2880 S=INTf.S3 

2890 U=INTCU3 

2900 IF S=H0 GOTO 2950 

2910 IF S>H0 GOTO 3050 

2920 REM * Non ancora atterrata * 

2930 S2=0 
2940 GOTO 3190 

2950 REM t Arrivata alla superficie * 
2960 S2=1 

2970 IF U<-9 GOTO 3020 

2980 IF U>9 GOTO 3020 

2990 REM * Stampa maschera 'BRAUO' * 

3000 GOSUB 3520 

3010 GOTO 3190 

3020 REM stampa maschera 'DISASTRO' 

3030 GOSUB 3300 
3040 GOTO 3190 

3050 REM * Oltre la superficie * 

3060 S2=1 

3070 T=(-U2+SQR C U2T2+2*G*H033vG 

3080 U3=U2+G*T 

3090 U=U3*3.6 

3100 U=INTCU3 

3110 IF U<-9 GOTO 3160 

3120 IF U>9 GOTO 3160 

3130 REM * Stampa maschera 'BRAUO' * 

3140 GOSUB 3520 

3150 GOTO 3190 _ 
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Segue listato Atterraggio. 

3160 

REH * 

Stampa maschera 'DISASTRO' *1 

1400 

GOSUB 

16010 

3170 

GOSUB 

3300 

3 >80 

GOTO 3190 

3190 

RETURN 

3700 

REN *- 

-* 

3210 

REn * 

ri calco lo variabili * 

j 3220 

REn *- 

- * 

3230 

H=H0-S 


3240 

n=n0-n9 

3250 

H0=H 


3260 

U0=<U 


3270 

C0=C 


3280 

n@=n 


3290 

RETURN 


3300 

REn *- 

- * 

3310 

REn * 

NASCHERA DISASTRO * 

3320 

REn *- 


3330 

COLOR 

, ,7,0 

3340 

PRINT 

"S" 

3350 

PRINT 


3360 

PRINT 


3370 

PRINT 

" DISASTRO!!” 

3380 

PRINT 


3390 

PRINT 


3400 

PRINT 


3410 

PRINT 

" Di siete schiantati sul pia 

ne ca 

ad una 

»» 

3420 

PRINT 

" velocita' di " ;el;TAB(23J; 

"Km/h" 


3430 

PRINT 

ovevate ancora";C; T ABC233 

litri 

dì carbu-" 

3440 

PRINT 

rante. 

3450 

PRINT 


3460 

PRINT 


3470 

PRINT 


3480 

GOSUB 

3980 


3490 PRINT 'BATTERE UN TASTO" 
3500 GET K*:[F K*» GOTO 3500 


3510 RETURN 
3520 REn — 
3530 REfl * 
3540 REH Ut— 
3550 COLOR , , 
3560 PRINT B 
3570 PRINT 
3580 PRINT 
3590 PRINT ' 
3600 PRINT 
3610 PRINT 
3620 PRINT 
3630 PRINT 


nASCHERA BRADO 


7,0 


* 

* 

* 


B R A 0 0 5 ! 


Con estrema perizia siete 


r 


: uscito ad " 

3640 PRINT " atterrare sul vostro pianet 


o pre Terit o. 

3650 PRINT ' Non affidatevi pero' troppo 


olla vostra 1 

3660 PRINT " buona sorte: riposatevi ben 
e prima di" 

3670 PRINT ’ ritentare. 

3680 PRINT 

3690 PRINT 

3700 GOSUB 4050 

3710 PRINT BATTERE UN TASTO" 

3720 GET Ki:IF K*»” GOTO 3720 
3730 RETURN 


3740 REH *-* 

3750 REn * nASCHERA PECCATO * 

3760 REn *-* 


3770 COLOR ,,7,0 
3780 PRINT "S" 

3790 PRINT 
3800 PRINT 

3810 PRINT " D ECCATOS S" 

3820 PRINT 
3830 PRINT 
3840 PRINT 

3850 PRINT ' Forse avreste potuto farce I 
o,ma siete" 

3860 PRINT " ri mas t; senza carburante a" 
;Tf*BC28D ;H 

3870 PRINT metri di altezza, per cui s 
lete preci-" 


V = V3 ★ 3,6 

A questo punto se V fosse ancora 
compresa tra +9 e -9 km/h, verrà 
proposta la maschera “BRAVO”, 
altrimenti verrà emessa la maschera 
“PECCATO”, evidenziando i valo¬ 
ri di H per l’altezza c di V per la 
velocità. 

c) S > Ho (figura 4) 

Si dovrà verificare la velocità al mo¬ 
mento dell’impatto sulla superficie, 
applicando nell'ordine le formule: 

T _ - V2 + \/V2 : +2 ★ A ★Ho 
A 


V3 = V2 + A ★ T 
V = V3 ★ 3,6 

Se ora V è compresa tra -9 e +9 
km/h, verrà proposta la maschera 
“BRAVO”, altrimenti la maschera 
“DISASTRO” con i valori di V per 
la velocità e zero per il carburante. 


Commenti al listato 

Nel programma si è fatto un largo 
uso di commenti, per cui esso si 
auto-documenta molto bene. 

10-290 Elenco delle variabili utiliz¬ 
zate. 


300-620 Corpo del programma. 
410-480 Impostazione del valore di 
G (gravità) in base al pianeta pre¬ 
scelto. 

630-680 Routine “scelta del piane¬ 
ta”. Permette di determinare su qua¬ 
le pianeta si vuole effettuare l’attcr¬ 
raggio. 

870-960 Routine “Richiesta SI - NO 
istruzioni”. Stampa il messaggio 
“volete ulteriori istruzioni?” c pone 
la risposta (“S” o “N”) nella varia¬ 
bile 1$. 

970-1390 Routine "Stampa istruzio¬ 
ni”. Viene eseguita se 1$ = “S”. 
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Al prossimo BIAS'84 (29 Novembre - 4 Dicembre), 
Fiera di Milano Pad. 18 
dedicato al PERSONAL COMPUTER 

«Vota i migliori 



li 


m 


\ 


Personal Computer» 


Organizzata da 

Segreteria BIAS'84 - Gruppo Editoriale JACKSON 




Qual'è il personal computer più «simpatico»? Qual'è il più 
«professionale»? Quale il più facile da usare? Quale ha il 
costo più conveniente? Quale ha il software migliore? 

Qual'è il personal computer che...? 








V) 


GRUPPO 

EDITORIALE 

JACKSON 


Queste e molte altre domande 
saranno oggetto di una grande 
inchiesta presso i visitatori del 
Padiglione 18 del BIAS'84, 
interamente dedicato al 
personal computer, software e 
accessori. 

Invitiamo TUTTI i visitatori a 
diventare protagonisti di questa 
originale iniziativa e a 
partecipare a un grande 
concorso che verrà annunciato 
all'apertura della mostra. 

Partecipare è facile: 

A tutti i visitatori del Pad. 18, 
dedicato al Personal Computer, 
sarà distribuito un questionario 
sul quale sono invitati ad 
esprimere i loro giudizi sui 
personal computer. 

Lo spoglio delle schede, 
preparate a cura di una società 
di ricerche di mercato 
qualificata, sarà effettuato 
giorno per giorno con l'ausilio 
di un elaboratore. 

Una conferenza per 
presentare i risultati 

I risultati saranno comunicati 
nel corso di una conferenza 
che si terrà nel pomeriggio del 
4 Dicembre nell'ambito 
mostra. 


Il BIAS'84, dunque, è un'occasione 
unica, dedicala al pubblico e agli 
espositori per conoscere gli 
orientamenti e le tenderne del 
mercato più dinamico negli anni '80. 

Segreteria del BIAS ’84, V.le Premuda, 2 • 20129 Milano ■ Tel. (02) 5400196/5400135 
Gruppo Editoriale Jackson, Via Rosellini, 12 - 20124 Milano • Tel. (02) 68.80.951 
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Atterraggio 


Segue listato Atterraggio. 

3880 PRINT " dì tati sul pianeta ad una u 
e Iooita" di" 

3890 PRINT 0.TABC9); Km/h 

3900 PRINT 

3910 PRINT 

3320 PRINT 

3930 GUSUB 3980 

3940 PRINT ’BATTERE UN TOSTO' 

3950 GET K$:IF K$ GOTO 3950 
3960 RETURN 

3970 REM *-* 

3380 REM * Rumore del disastro * 

3990 REtl *-* 

4000 nn$^" GIR-GP GR-SD9R1 -FR-FR-FR-D9" 
4010 TF.F1P0 6 

4020 riusic tin*,nn$ 

4030 RETURN 


4040 REfl *-* 

4050 REM * Saluto musicale * 

4060 REM *- 

4070 nn* = ' 93" :N1 1 • 95+«C3rD+E+ttF+G+tiF0 + G 
*#F4+F3+D+#rB' 

4080 f12t=' 93+D2R0tD1 +F2+DMtC3B+#C7+»C3" 
4090 rl3*=’ 93+ttC2R0tt*C1+n? + fcr.B39+D7+D3" 
4100 TENPO 3 

4110 riusic m*,m$,n2$,nt*,n3$,m*,ri2i,N 


i*,M3$ 

4120 RETURN 

4 130 REFI *-* 

4140 REM * FINE * 

4 150 REM t -* 

4160 COLOR ,,7,1 
4170 PRINT 'B" 

4180 END 


1400-1490 Routine “Inizializzazio- 
-nc variabili”. Determina i valori ini¬ 
ziali di alcune variabili e precisa- 
mente: 

VI = 1000 (m/sec) 

MI = 150 (litri) 

Ho = a caso tra 30.000 e 40.000 

(m) 

Vo = a caso tra 140 e 180 (km/h) 
Co = Ho + un numero a caso tra 
4000 e 8000 (litri) 

Mo = Co 4- un numero a caso tra 
10.000 e 12.000 (litri) 


1500-1630 Routine “stampa ma¬ 
schera centrale”. Visualizza a video 
i valori attuali di Ho (altezza), Vo 
(velocità) e Co (carburante). 
1640-1850 Routine “Richiesta ac¬ 
censione retrorazzi”. Richiede se si 
vogliono accendere dei retrorazzi e 
memorizza la risposta (“S” o “N”) 
nella variabile R$. Se si è risposto 
“S”, richiede il numero di retroraz¬ 
zi, che memorizza nella variabile N, 
c il tempo di accensione degli stessi, 
che memorizza nella variabile T. 


Controlla anche che i valori digitati 
siano corretti (5 ^ N ^ I e 99.9 
^ 0 . 1 ). 

1860-2770 Routine “Accensione re¬ 
trorazzi”. Viene eseguita quando R$ 
= “S”. Per il funzionamento vale 
quanto specificato nel testo. Contie¬ 
ne anche la routine “Carburante ter¬ 
minato” (2280-2770). 

2780-3190 Routine “Caduta libe¬ 
ra”. Viene eseguita quando R$ = 
“N”. Vale quanto specificato nel te¬ 
sto. 



MILANO QUARTIERE FIERA 

Orario: 9.30-18,00 

Ingresso: Porta Carlo Magno 

e Porta Meccanica (MM Piazza Amendola) 



C0NVtr.N0 MOSTRA INTtANAZIONALE Otlt'AUTOMAZIONE STRUMINTAZIONE E MICROtltnRONICA 
INTERNATIONAL AUT0MAII0N INS1RUMENTATI0N AND MICROELECIRONICS CONMRENCL ANO EXHIBITI0N 

29 Novembre • 4 Dicembre 1984 
29th November • 4th Decomber 1084 


Invito offerto da 


Compilare in stampatello in ogni sua parte. 


Free entrance ticket 
l offered by 
l 
l 


Please fully fili In capitai lettera. 

Cognome _ 

(family name) 


I 

GRUPPO EDITORIALE 
JACKSON 



Nome 

(Christian name) 

Ditta/Ente 

(firmi 

Via_ 

(Street) 


MI LAN TRADE FAIR PREMISES 
Open: 9.30 a rri.-6.00 p.m. 

Entrance: Porta Carlo Magno 

and Porta Meccanica (MM Piazza Amendola) 


Tagliando per il visitatore 


lOFTWftRf 




In concomitanza con 
8* RICH o MAC 84 
In concomitance with 
8th RICH and MAC 84 


Cap ...Città .... 

(zip) (town) 


Prov. 

(state) 


Attenzione COMPILARE ANCHE IL RETRO 


► 
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NEL PROSSIMO NUMERO DI 


TROVERETE 


• SPACE TRAVELLER: 

UN GIOCO PER C 64 

• MEMORIZZAZIONE DI IMMAGINI 
CON LO SPECTRUM 

• IL SALTO DELLA RANA 
CON IL C 64 


• ATTERRAGGIO PERICOLOSO 
CON TI99 

• COME AGGIUNGERE 
NUOVI COMANDI 
AL BASIC DEL C 64 

• ZX EXPERT 2° 


Solo per i visitatori italiani — For italian visitors only 
Rispondere con una X alle domande seguenti: 


Funzione svolta in Azienda 

□ DIREZIONE □ MARKETING □ RICERCA E SVILUPPO □ PROGETTAZIONE 

□ PRODUZIONE □ CONTROLLO OUALITA □ MANUTENZIONE □ FORMAZIONE 

□ CONSULENTE □ PRIVATO □ ALTRO 


Sono interessato al seguei 

Q AUTOMAZIONE 

□ COMPONENTI ELETTRONICI 

□ COMPUTER E PERIFERICHE 

□ PERSONAL COMPUTER 

Settore/l di attività della 

□ AERONAUTICA-SPAZIO 

□ AUTOMAZIONE 

□ AUTOMOBILE 

□ ELETTROACUSTICA HI-FI 
D ELETTRODOMESTICI 
Altri settori industriali 

□ ALIMENTARE 

□ CARTA 

Q CHIMICA-PETROLCHIMICA 

□ CEMENTO 

□ CERAMICA 
D FONDERIE 


iti settori merceologici della 

□ STRUMENTAZIONE DI 
LABORATORIO 

□ STRUMENTAZIONE DI 
PRODUZIONE E COLLAUDO 

Azienda 

□ ELETTRONICA INDUSTRIALE 

□ ELETTRONICA MEDICALE 
Q ELETTRONICA MILITARE 

□ ELETTRONICA NUCLEARE 

□ ENGINEERING 

□ GOMMA/PLASTICA 

□ IMPIANTISTICA GENERALE 

□ LATERIZI/REFRATTARI 

□ LEGNO 

□ MACCHINE AUTOMATICHE 
a MECCANICA 


mostra 

□ TELECOMUNICAZIONI/ 
TELEMATICA 

□ ALTRO _...... 

□ INFORMATICA 

□ MISURE 

□ RADIO • TV 

□ TELECOMUNICAZIONI 


□ PRODUZ. ENERGIA ELETTRICA 

□ SIDERURGICA 

□ TESSILE 

D TRASPORTI 

□ VETRO 

□ ALTRO 


I. P. 


Note 
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Atterraggio 

3200-3290 Routine “Ricalcolo va¬ 
riabili”. Aggiorna i valori di Ho, 
Vo, Co prima che vengano di nuovo 
stampati dalla maschera centrale. 
Aggiorna pure il valore di Mo. 
3300-3510 Stampa una maschera a 
video in caso di disastro, eviden¬ 
ziando anche i valori di V e di C. 
Verrà anche generato un rumore op¬ 
portuno. 


3520-3730 Stampa una maschera a 
video di congratulazioni per l’atter¬ 
raggio concluso felicemente. E ac¬ 
compagnata da una musichetta di 
saluto. 

3740-3960 Stampa una maschera a 
video per il caso di completo consu¬ 
mo di carburante, evidenziando an¬ 
che i valori di H e di V. 

3970-4030 Genera un rumore che 


simula il disastro. 

4040-4120 Genera una musichetta 
allegra per salutare l'avvenuto atter¬ 
raggio. 

4130-4180 Rimette l’elaboratore 
nelle condizioni di colore iniziali, 
pulisce il video e fa terminare il pro¬ 
gramma. 



VARIANTI DA EFFETTUARE AL PROGRAMMA 
PER POTERLO ESEGUIRE SU TEXAS TI99/4A (IN TI BASIC) 

1 )Sostituire tutte le PRINT" 0 "conCALLCLEAR(funzionedi 
pulizia del video) 

2) Sostituire tutte le GOTO nelle istruzioni IF con delle THEN 

3) Sostituire la linea 660 con le seguenti: 

660 CALL SCREEN (12) 

662 E OR 1 = 1 TO 12 
664 CALL COLOR (1.2.1) 

666 NEXT I 

4) Rivedere la lunghezza delle PRINT. Infatti il TI99/4A ha il video 
suddiviso in 32 colonne, mentre lo Sharp MZ-700 (e il CBM 64) 
hanno il video suddiviso in 40 colonne. 

5) Modificare la linea 830 come segue: 

830 CALL KEY (O.SI.ST) 

6) Modificare la lìnea 920 come segue: 

920 CALL KEY (0.1S.ST) 

7) Sostituire la linea 1170 con le seguenti: 

1170 CALL KEY (0.KS.ST) 

1172 IF ST=0 THEN 1170 

8) Sostituire la linea 1370 con le seguenti: 

1370 CALL KEY (0.KS.ST) 

1372 IF ST=0 THEN 1370 

9) Sostituire le linee da 1450 a 1480 con le seguenti: 

1450 H0=INT ( R N D ★ 10001)+300(XI 

1460 V0=INT (RND*4I)+I40 

1470 C0=H0+INT(RND*400I)+4000 

1480 M0=C0+INT(RND*20()11 + 10000 

10) Sostituire la linea 1690 con la seguente: 

1690 CALL KEY (0.RS.ST) 

11) Sostituire la linea 1760 con la seguente: 

1760 CALI KEY (0. N, ST) 

12) Sostituire la linea 1810 con la seguente: 

1810 INPUT "PER QUANTO TEMPO?”:T 

13) Sostituire la linea 3330 con le seguenti: 

3330 CALL SCREEN (2) 

3332 FOR 1=1 TO 12 
3334 CALL COLOR (1,16.1) 

3336 NEXT I 

14) Sostituire la linea 3500 con le seguenti: 

3500 CALL KEY (O.KS.ST) 

3502 IF ST=0 THEN 3500 

15) Sostituire la linea 3550 con le seguenti: 

3550 CALL SCREEN (2) 

3552 FOR 1 = 1 TO 12 
3554 CALL COLOR (1.16,1) 

3556 NEXT I 

16) Sostituire la linea 3720 con le seguenti: 

3720 CALL KEY (O.KS.ST) 

3722 IF ST=0 THEN 3720 

17) Sostituire la linea 3770 con le seguenti: 

3770 CALL SCREEN (2) 


3772 FOR 1 = 1 TO 12 
3774 CALL COLOR (1.16.1) 

3776 NEXT I 

18) Sostituire la linea 3950 con le seguenti: 

3950 CALL KEY (O.KS.ST) 

3952 IF ST=0 THEN 3950 

19) Sostituire la routine "Rumore del disastro" con la seguente: 
4000 FOR 1=0 TO 30 

4010 CALL SOUND (I50.-5.I) 

4020 NEXT I 
4030 RETURN 

20) Sostituire la routine "Saluto musicale" con la seguente: 

4070 TONO= 110 

4080 FOR 1 = 1 TO 10 

4090 CALL SOUND (300.TONO.I) 

4100 TONO=TONO+l 10 
4110 NEXT I 
4120 RETURN 

oppure con altra musica voluta. 

VARIANTI DA EFFETTUARE AL PROGRAMMA 
PER POTERLO ESEGUIRE SU COMMODORE 64 

1) Sostituire la linea 660 con la seguente: 

660 POKE 53280.7:POKE 53281.7: PRINT "1^1" 

2) Sostituire tutte le PRINT “ [cj "con PRINT" |(§ "(funzioncdi 
pulizia del video) 

3) Sostituire la linea 3330 con la seguente: 

3330 POKE 53280.9:POKE 53 28I,0:PR!NT " E " 

4) Sostituire la linea 3550 con la seguente: 

3550 POKE 53280.9.POKE 53281.0:PRINT “ E " 

5) Sostituire la linea 3770 con la seguente: 

3770 POKE 53280,9:POKE 53281.0:PRINT " E ” 

6) Sostituire la routine “Rumore del disastro" con la seguente: 
4000 V=54296:W=54276:A=54277:II=54273:L=54272 

4010 FOR X = 15 TO 0 STEP -I: POKE V.X: POKE W.I29 

4015 POKE A. 15:POKE H.40:POKE 1..200 

4020 FOR 1=1 TO I00:NEXT:NEXT 

4025 POKE W.0:POKE A.O 

4030 RETURN 

7) Sostituire la routine "Saluto musicale" con la seguente: 

4070 POKE 54296,15:POKE: 54277.9.POKI 54276.17 
4075 FOR 1 = 1 TO 300:NEXT I 

4080 READ A:READ B 

4085 IF B= -I THEN POKE 54273,0:POKE: 54272.0:POKI 

54296.0:GOTO 4120 

4090 POKE 54273,A:POKE 54272.B 

4095 POKE 54276,0:POKE 54276.17 

4097 GOTO 4075 

4100 DATA 17.37,19,63.21.154,22,227 
4105 DATA 25,177,28.214,32.94.34.175 
4110 DATA -I. -I 
4120 RETURN 
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' Libri firmati JACKSON 

■HI f r MlM|l 


Baisini - Baglioni 

FORTH 

Come e perché - dopo essersi affermato in 
campo scientifico e industriale - il FORTH è 
sempre più usato anche come linguaggio per 
Personal Computer. Strutturato su due piani, il 
volume si propone come “manuale di 
apprendimento” e come "manuale d'uso” del 
FORTH applicato al VIC 20 e al CBM 64. 

160 pagine. 

Codice 527 B L. 11.000 

Francesconi - Paterlini 

VOI E IL VOSTRO COMMODORE 64 

Un esauriente vademecum sulla 
programmazione in BASIC del Personal che va 
oggi per la maggiore. Facile, brillante, ricco di 
programmi testati questo è un volume prezioso 
anche per il più inesperto degli utilizzatori che. 
oggi, trova finalmente il modo più semplice per 
entrare nel mondo dei computer. 256 pagine. 
Codice 347 B L. 22.000 

Rita Bonelli 

COMMODORE 64 IL BASIC 

Un'accurata esposizione del linguaggio BASIC, 
accompagnata da numerosi esempi. 

Un BASIC visto dall'interno. Un libro di 
programmi per imparare a programmare. 

Per una maggior praticità e immediatezza d'uso, 
tutti i programmi esemplificativi riportati nel libro 
sono disponibili - a richiesta - su floppy disk. 
316 pagine. 

Codice 348 D L. 26.000 

La Biblioteca che fa testo 
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■orrottiALE 

JACKSON 


Attenzione compilare per Intero 
la cedola 

ritagliare (o fotocopiare) e spedire 
in busta chiusa a: 

GRUPPO EDITORIALE JACKSON 

Divisione Libri 

Via Rosolimi. 12 • 20124 Milano 



VOI 

E IL VOSTRO 
COMMODORE 64 


COMMODORE 

64 

H basic 


CEDOLA DI COMMISSIONE LIBRARIA 


VOGLIATE SPEDIRMI 


n“ copie 

codice 

Prezzo unitario 

Prezzo totale 













Totale 



Pagherò contrassegno a* postino •« prezzo indicato p<u L. 2000 per contributo fisso 
•pese di spedizione 

Condizioni di pagamento con esenzione del contributo tpeee di spedizione 

Allego assegno delia Banca H Allego fotocopia del versamento 

su C/C n 11666203 a voi intestato 

D Allego fotocopia di versamento 

n r _ su vagita postale a voi intestato 


Cognome 


Cap 


C>tta 


Data 


Firma 


Spazio riservato elle Aziende. SI richiede remissione di Iattura 

Partite I.V.A. I_LI_I_I_I_I_I_L 


ORDINE 
MINIMO 
L SO 000 







































IL BASIC E LA GESTIONE DEI FILE 

Il libro si rivolge in modo particolare a chi già conosce il Basic e 
desidera poter realizzare programmi che prevedano l'uso di 
file residenti su disco. Dopo aver preso in esame, utilizzando 
numerosi esempi pratici, le particolarità del Microsoft, si pas¬ 
sa alla descrizione delle istruzioni necessarie ad una corretta 
gestione dei file su disco, sia ad accesso diretto che sequenzia¬ 
le. Una terza parte del libro è infine interamente dedicata alla 
esposizione dei metodi pratici per l'uso dei file ad accesso 
diretto e dei data base. 

Cod. 515H L. 11.000 Pagg. 164 


50 ESERCIZI IN BASIC 

Una raccolta completa e progressiva di esercizi riguardanti 
matematica, gestione, ricerca operativa, gioco e statistica 
Ciascun esercizio proposto comporta l'enunciazione e l'analisi 
del problema, la risoluzione mediante flow-chart e commenti, 
cosi come un programma che implementa la soluzione, illu¬ 
strato da semplici esempi rappresentativi. 

Questo metodo mette in grado il lettore di verificare passo 
passo le sue conoscenze e il livello di apprendimento raggiun¬ 
to. 

Cod. 521A L. 13.000 Pagg. 208 



CEDOLA 

DI COMMISSIONE 
LIBRARIA 

Ritagliare (o fotocopiare) 
e Inviare a 

Gruppo Editoriale Jackson 
Via Roselllnl, 12 - 20124 Milano 

Nom* • Cognome _ 


Indirizzo 


Cod le* 
Libro 


Quantità 


Codice 

Libro 


Quintili 


Codio* 

Libro 


□ Ptghoró al postino II prezzo indicato + I. 2.000 por contributo fisso sposo di spodlziono 


□ Allogo assegno n a .dì L 


Dats.Firma. 


□ Non Abbonato □ Abbonato sconto 10% OL Elettrontca □ Elettronica Oggi □ Automazione Oggi □ EloMor 

□ Informatica Oggi □ Compulerworld □ Bit □ Personal Software □ Strumenti Musicali O VideogtocN 


Cap. _ 


Provincia 


Inviatemi I seguenti libri: 


Portila I.V.A. (indispensabile por lo aziende) 


SI richiedo l'omissione □ 
della fattura 


75 PROGRAMMI IN BASIC 
PER IL VOSTRO COMPUTER 

Il volume raccoglie ben 75 programmi originali scritti in un 
Basic generico, utilizzabili, salvo poche e semplici modifiche, 
sulla maggior parte dei personal computer in commercio, a 
cassetta come a floppy disk Per ciascuno, dopo una descrizio¬ 
ne introduttiva, viene tornito il tistlng e un campione di esecu¬ 
zione Cosi come sono, I programmi proposti (tutti verificati), 
costituiscono un valido ausilio per chiunque debba risolvere 
problemi di matematica, statistica, finanza o. genericamente, 
di pratica utilità 

Cod. 551D _ L. 12.000 Pagg. 196 




Vffl I 


DI VISION) LIBRI 


Nei giochi, il lettore pud ritrovare tutte quelle situazioni re 
programmazione che gli saranno indispensabili nella 


GIOCARE IN BASIC 

i reali di 

prensione e realizzazione di qualsiasi applicazione interattiva 
del proprio computer, anche le piu sofisticato. Questo senza 
annoiarsi, ma entrando da subito all'interno della materia per 
imparare a comprendere il BASIC, Il proprio computer e i 
computer In genere 

Cod. 522A L. 20.000 Pagg. 324 






































































C alcolo combinatorio 
in multipla precisione 


Una semplice introduzione 
e un programma per Apple II 


di Riccardo Mazzurco 

I l calcolo combinatorio è una branca della ma¬ 
tematica, che trova le sue applicazioni in mol¬ 
teplici discipline: tra le altre, in particolare, la 
statistica ed il calcolo delle probabilità. 

Chi non abbia mai avuto a che fare con le nozioni che 
stiamo per esporre potrebbe forse rimanere perples¬ 
so, leggendo dei nomi poco familiari, e credere erro¬ 
neamente di trovarsi di fronte a dei concetti comples¬ 
si; cercheremo invece di dimostrare non solo che essi 
sono abbastanza semplici, ma anche che possono 
essere di aiuto in molte situazioni spesso ricorrenti 
anche nelle faccende di tutti i giorni! 

Terminata una semplice esposizione teorica passere¬ 
mo all’esemplificazione pratica: commenteremo un 
programma che permette di eseguire materialmente 
le operazioni che avremo descritto; i calcoli in que¬ 
stione si prestano particolarmente ad essere eseguiti 


da un calcolatore, data la natura eminentemente ri¬ 
petitiva della maggior parte di essi. 

Il programma, scritto in Applesoft BASIC, non 
comportando l’uso di funzioni grafiche può essere 
convertito senza soverchie difficoltà per altri perso¬ 
nal computer. 

Restringeremo le operazioni di calcolo combinatorio 
ai soli numeri interi positivi, anche per non complica¬ 
re eccessivamente le definizioni ed i calcoli. Poiché i 
risultati delle funzioni di calcolo combinatorio sono 
spesso composti da un gran numero di cifre, abbiamo 
ritenuto opportuno adoperare, per la maggior parte 
delle operazioni, le routine di multipla precisione 
pubblicate, con un’ampia documentazione, sul nu¬ 
mero 4 di Personal Software, cosicché potremo otte¬ 
nere risultati con la precisione che più ci aggrada; 
considereremo dunque note tali routine, omettendo 
ogni commento su di esse. 

Permutazioni semplici 

Supponiamo di avere n oggetti e di voler sapere in 
quanti modi diversi possiamo ordinarli; per esempio: 
quante diverse parole possiamo ottenere anagram- 
mandone una di quattro lettere? Possiamo fare il 
seguente ragionamento: se poniamo al primo posto 


Listato I. Il listato de! programma di calcolo 
combinatorio. 

10 REM ###«#################### 
12 REM 

14 REM CALCOLO COMBINATORIO IN 
16 REM MULTIPLO PRECISIONE 
lfl REM 

20 REM OPPI.ESOFT BASIC 
22 REM LUNGHEZZA: 9268 BYTES 
24 REM 

26 REM RICCARDO MAZZURCO 1984 
28 REM 

30 REM tttttt##################### 

32 CLEOR : TEXT 
.34 DIM NPR(100> 

36 CF « 4 : BE< = 10000 
38 N = 100 

40 IF CCC = 1 THEN GOSUB 478 

42 K « 9 

44 N = INT <(N - 1> / CF> + 1 

46 DIM NLJ (K - 1, N> , SN (K - 1 ) , PF ( 

K — 1) 

48 REM TABELLA FATTORIALI 
50 DIN A*(7>,FA(13) 


52 FA (0) = 1 

54 FOR I = 1 TO 12 

56 FACI) = FA<I - 1) * I 

58 NEXT I 

60 FOR I = 1 TO 7 

62 READ flt(I) 

64 NEXT 

66 ONERR GOTO 70 
66 REM MENU’ 

70 HOME 

72 PRINT " - 


74 INVERSE : VTAB 2« HTOB 2 
76 PRINT " COLCOLO COMBINA 

TORIO 
78 NORMAL 

80 PRINT " - 


82 VTAB 6 

84 PRINT " 1 —> M A*(1);A*(4) 

86 VTAB 8 

88 PRINT " 2 —> "A*(2);A*<4) 

90 VTAB 10 

92 PRINT " 3 —> "A* (3) ;A* <4) 

94 VTAB 12 
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96 print " a —> ";A4(l>; A4(5) 

98 VTAB 14 

100 PRINT " 5 —> ";A4<2);A4(5) 

102 VTAB 16 

104 PRINT " 6 —> "0$(3);A4(5) 

106 VTAB 18 

108 PRINT " 7 —> SCELTO NUMERO 
CIFRE" 

110 VTAB 20 

112 PRINT " 8 —> FINE" 

114 VTAB 23 

116 PRINT " COSO SCEGLI ? "; 

118 GET V: PRINT V 

120 IF (V < 1) OR (V > 8) OR (V < 

> INT (V)) THEN GOTO 70 
122 ON V GOTO 126,152,184,220,31 
2,350,124,388 

124 CLEOR :CCC = 1: GOTO 34 
126 REM PERMUTOZIONI SEMPLICI 
128 HOME 

130 PRINT 0$(1); 0$(4): PRINT : PRINT 
0* (6) 

132 GOSUB 422 

134 H - E 

136 GOSUB 392 

138 PRINT CHR4 (7) 

140 HOME s VTAB 10 
142 PRINT "LE PERMUTAZIONI SEMPL 
ICI DI" 

144 PRINT 

146 PRINT E;" ELEMENTI SONO 

148 GOSUB 13000 

150 BET 0$ s GOTO 70 

152 REM DISPOSIZIONI SEMPLICI 

154 HOME 

156 PRINT A4 (2) ; A4(4) : PRINT : PRINT 
A4 (6) ; A*(7) 

158 GOSUB 422 
160 GOSUB 432 

162 IF (E < 1) OR (H > E) THEN FLASH 
: PRINT " 1 <= K (.— N PRINT 

: NORMAL : PRINT CHR4 (7): GET 
A4 s BOTO 158 
164 GOSUB 392 
166 PRINT CIHR4 <7> 

168 HOME : VTAB 10 
170 PRINT "LE DISPOSIZIONI SEMPL 
ICI DI" 

172 PRINT 

174 PRINT E;" ELEMENTI DI CLASSE 
" ;H 

176 PRINT 

178 PRINT "SONO 


180 GOSUB 13000 

182 GET A4: GOTO 70 

184 REM COMBINAZIONI SEMPLICI 

186 HOME 

188 PRINT A4(3) ; A4(4) 

190 PRINT : PRINT A4(6);A4(7) 

192 GOSUB 422 
194 GOSUB 432 

196 IF (H > E) THEN FLASH : PRINT 
« 0 > = K > = N ": NORMAL : GOTO 
192 

198 V = H:W = E 
200 GOSUB 446 
202 PRINT CHR4 (7) 

204 HOME : VTAB 10 
206 PRINT "LE COMBINAZIONI SEMPL 
ICI DI" 

208 PRINT 

210 PRINT W;" ELEMENTI DI CLASSE 
" ; V 

212 PRINT 

214 PRINT "SONO "; 

216 GOSUB 13000 

218 GET A4: GOTO 70 

220 REM PERMUTAZIONI CON RIP. 

222 HOME 

224 PRINT A4(1);A4(5) 

226 GOSUB 422 
228 Q = E 

230 HOME : VTAB 10 
232 INPUT "QUANTI GRUPPI ";NG 
234 IF (NG < 1) OR (NG < > INT 

(NG)) OR (NG > E) THEN PRINT 
CHR4 (7): GOTO 230 
236 SUM = 0 
238 FOR I = 1 TO NG 
240 HOME : VTAB 10 
242 PRINT "QUANTI ELEMENTI HA IL. 

“ ; I ; "’ GRUPPO 
244 INPUT NPR(I> 

246 IF (NP R(I> < 1) OR (NPR(I) < 

> INT (NPR(I))) THEN PRINT 
CHR4 (7): GOTO 240 
248 SUM = SUM + NPR(I> 

250 NEXT I 

252 IF SUM < > E THEN FLASH : PRINT 

: PRINT "ERRORE RIPETI": NORMAL 
: GET A4: GOTO 236 
254 H « E 
256 GOSUB 392 
258 A = C s C = 3 
260 GOSUB 15000 
262 FOR J - 1 TO NG 
264 E = NPR(J> 
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Il mondo del software e dei servizi di informatica è difficile da fotogra¬ 
fare. Una domanda che varia di continuo, prodotti nuovi giornalmen¬ 
te immessi sul mercato. Non solo. La realtà italiana è ancor più 
complessa, per caratteristiche uniche di lingua, cultura, organizza¬ 
zione. 

Un mercato difficile, con infinite variabili. Noi della J. Soft abbiamo 
una risposta a tutte queste istanze: anzi, tutte le risposte. Perchè 
siamo un editore di software, di riviste e di libri su supporto magneti¬ 
co e su carta. 

In più, unici in Italia, distribuiamo su tutto il territorio nazionale, 
con una nostra rete di agenti, programmi nostri e della prima e più 
prestigiosa software-house indipendente del mondo: MICROSOFT. 
J. Soft con una struttura snella affronta con dinamicità tutti gli aspet¬ 
ti di questo nuovo mercato: dall’informazione alla formazione, dalla 
vendita all’assistenza post-vendita. 

Il nostro cliente è un amico, sia esso un dealer, un utente finale, un 
abbonato. 

Sempre a sua disposizione, raggiungibili telefonicamente con un nu¬ 
mero diretto (02-6888228), per aiutarlo a risolvere un problema, a 
chiarire un dubbio, a far tesoro di tutti i suoi suggerimenti. 

J. Soft vuole distinguersi per una filosofia commerciale di una geo¬ 
metrica semplicità: offrire il meglio, nella forma più adatta, a un 
prezzo conveniente, con il miglior servizio. 


SOFTWARE! 



EDITRICE 


Il soft*publisher amico 

20124 Milano - Via Rosellini, 12 Tel. (02) 6888228-683797-6880841/2/3 
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266 H = E 

268 BOSIJB 392 

270 fi = J / 2 

272 AMO = <0 ® INT (fi)) 

274 fi « 3 - fififi 

276 B = C 

278 D = 1 - C 

280 C = 2 + fififi 

282 GOSUB 10000 

284 NEXT J 

286 PRINT CHR* (7) 

288 HOME : VTfiB 10 

290 PRINT "LE ";fi*<l>;fi*<5> 

292 PRINT 

294 PRINT "DI ";Q;" ELEMENTI IN 
GRUPPI DI": PRINT 
296 POR J = 1 TO NG - 1 
298 PRINT NPR(J); » , "; 

300 NEXT 

302 PRINT NPR(NG) 

304 PRINT 

306 PRINT "ELEMENTI SONO "; 

308 GOSUB 13000 

310 GET fi*: GOTO 70 

312 REM DISPOSIZIONI CON RIP. 

314 HOME 

316 PRINT fi* <2); fi*(5) 

318 PRINT : PRINT fi*(6);fi*<7) 

320 GOSUB 422 
322 GOSUB 432 

324 IF E < 0 THEN INVERSE : PRINT 
" N > 0 NORMfiL. : GOTO 320 
326 BS « »E 
328 ES - H 


330 C = 3 

332 GOSUB 9500 

334 PRINT CHR* (7) 

336 HOME : VTfiB 10 

338 PRINT "LE "; fi»<2> ; fi*(5) 

340 PRINT 

342 PRINT "DI " *E;" ELEMENTI DI 
CLASSE ";H 
344 PRINT 

346 PRINT "SONO "; : GOSUB 13000 
34B GET fi»: GOTO 70 
350 REM COMBINAZIONI CON RIP. 
352 HOME 

354 PRINT fi*(3);fi*(5) 

356 PRINT : PRINT A*(6);fi*<7> 

358 GOSUB 422 

360 GOSUB 432 

362 W « E 

364 E = E + H ■- 1 

366 V « H 

36e GOSUB 446 

370 PRINT CHR* <7) 

372 HOME : VTfiB IO 

374 PRINT "LE ";fi*(3) ; fi*(5) 

376 PRIN"- 

378 PRINT "DI ";W;" ELEMENTI DI 

II 

380 PRINT 

382 PRINT "CLASSE ";V;" SONO "• 
384 GOSUB 13000 
386 GET fi*: GOTO 70 
388 HOME : END 

390 REM ROUTINE DISPOSIZIONI 
392 IF (E « H) PNC (E < 13) THEN 
NT - Ffi <E) : C ~ 0 5 GOSIJB 1700 


una delle quattro lettere, per il secondo posto ne 
rimarranno solo tre tra cui scegliere, mentre per il 
terzo avanzeranno solo due lettere possibili, infine 
porremo l’ultima lettera rimasta al quarto posto. 
Da tale discorso è facile arguire che il numero di 
permutazioni sarà: 

4x3x2x1=24 

quindi anagrammando quattro lettere si possono ot¬ 
tenere 24 parole diverse. 

In generale possiamo affermare che le permutazioni 
semplici di n elementi sono: 

P (n) = n (n - 1) (n - 2) ... 2 x 1 

È noto che il prodotto dei primi n numeri viene 
indicato con il simbolo ni, clic si legge “n fattoriale”, 
quindi, in conclusione, possiamo affermare che il 
numero di permutazioni semplici di n elementi è dato 
dal fattoriale di n stesso. 


Disposizioni semplici 

Dati n oggetti vogliamo sapere in quanti modi 
diversi possiamo disporne ordinatamente k di essi 
(per k < = n, naturalmente) prendendoli ciascuno 
una volta sola. 

Facciamo di nuovo un esempio per essere più chiari, 
ricorrendo al noto gioco del Master Mind: questo 
gioco consiste nell’indovinare un codice segreto di 
quattro colori scelti, escludendo le ripetizioni, tra sei 
complessivi; in tale ipotesi, quanti codici potranno 
essere formati? 

Il ragionamento è analogo al precedente: per il primo 
posto potrò scegliere tra sei colori, per il secondo ne 
avrò a disposizione cinque, per il terzo quattro ed 
infine per il quarto ed ultimo la scelta sarà ristretta ai 
rimanenti tre colori. Se ne deduce che avremo: 

6 x 5 x 4 x 3 = 360 

possibili quaterne ordinate di colori. 
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o: RETURN 


394 

NT = 1 


396 

C a 0 


398 

GOSUB 17000 


400 

C a 1 


402 

GOSUB 17000 


404 

SO « 3 


406 

FOR NP » '.E - H + 1 ) TO ’£ . 


408 

A « NP / 2 


410 

A w (A =. int (A>> 


412 

C = 1 - A 


43 4 

GOSUB 8000 


416 

NEXT NP 


418 

RETURN 


420 

REM ROUTINE DI LETTURA 


422 

VTAB 10 


424 

INPUT " NUMERO DI ELEMENTI 
« • E 

» 

426 

IF (E < 0) OR <E < > INT 

( 


E>> THEN PRINT CHR* (7): 
422 

GOTO 

428 

PRINT 


430 

RETURN 


432 

VTAB 12: PRINT " 


434 

VTAB 12 


436 

INPUT " CLASSE * ";H 


438 

IF <H < 0> OR (H < > INT 

( 


H)> THEN PRINT CHR* <7) : 
432 

GOTO 

440 

PRINT 


442 

RETURN 


444 

REM ROUTINE COMBINAZIONI 


446 

U - E - H 


448 

IF H > U THEN H « U 


450 

IF H “ 0 THEN C * 1sNT = 1 : 
170001 RETURN 

GOSUB 

452 

GOSUB 392 


454 

A = C 


456 

C « 2 


458 

GOSUB 15000 


460 

E = H 


462 

GOSUB 392 


464 

A » 2 


466 

B = C 


468 

C = 1 - C 


470 

D = 3 


472 

GOSUB 10000 


474 

RETURN 


476 

REM CAMBIO NUMERO DI CIFRE 


478 

HOME : VTAB 10 


480 

INPUT'"NUMERO MASSIMO DI GIF 

RE : " ; N 

482 

IF (N < IO» OR (N < > INT 



(N) ) THEN PRINT CHR» <7)s 
478 

GOTO 

484 

RETURN 


486 

DATA PERMUTAZIONI .DISPOSIZ 


IONI ,COMBINAZIONI .SEMPLICI 
.CON RIPETIZIONE .DI N FI.EM 
ENTI .DI CLASSE K 
5000 IE SN<A> THEN 5060 
5010 Al = A 
5020 A =» B 
5030 GOSUB 15000 
5040 A « Al 
5050 RETURN 

3060 IE SN(8) < >0 THEN 5090 

5070 GOSUB 15000 
5080 RETURN 
5090 CO =» 2 

CitOO /. « ABF» (SN (A) - SN(B>) / 2 
-*■ 1 

5J IO ON 7. GOSUEt 5200,6200 
5120 IF SN <A) < > - 1 OR CO = 

0 THEN RETURN 
5130 SN(C) = - SN(C) 

5140 RETURN 
5200 SN <C) = 1 

5210 L.U - (PE < A> + PF(B> - ARS < 
PF (A) - PF <E0 ) ) / 2 
5220 GOSUB 5300 

5230 IF PF ( A) =» PF ( B) THEN 5270 
5240 IF PF (A) > PF (EO THEN 7. = A 
: GOTO 5260 
5250 Z = B 
5260 GOSUB 5400 
5270 GOSUB 5500 
5280 RETURN 
5300 CB = O 
5310 FOR I = 0 TO LU 
5320 NU (C, I ) = NIJ ( A, I ) + NU(B,I) + 
CB 

5330 IF NU <C,I) < BB THEN CB = 0 

: GOTO 5360 

5340 NU <C,I> = NU(C, I) - BB 
5350 CB = 1 
5360 NEXT I 
5370 RETURN 

5400 FOR I = LU + 1 TO PF(7) 

5410 NU(C,I) = NU(Z,I) + CB 
5420 IF NU(C,I) < BB THEN CB = O 
s GOTO 5450 

5430 NU(C,I) = NU(C,I) - BB 
5440 CB = 1 
5450 NEXT I 
5460 RETURN 

5500 IF CB = 0 THEN PF(C) = I - 
1s RETURN 

5510 IF I = N THEN PRINT “NUMER 
0 TROPPO GRANDE": STOP 
5520 NU(C,I) = 1 
5530 PF(C) = I 
5540 RETURN 

6000 IF SN <A) < > O THEN 6070 

6010 Al = A 
6020 A => B 
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CENTRO COMMERCIALE 
AMERICANO 

Via Gallamelata 5 - 20149 Milano 
Tel 02/4696451 Telex 330208 USIMC I 


Tutte le più sofisticate proposte 
della tecnologia americana nel 
settore dell'Informatica 
“concentrate” in un'unica mostra, 
una mostra che specializzandosi 
ulteriormente di anno in anno, è 
giunta alla XIV edizione. 
Riproponendo un’iniziativa che già 
lo scorso anno è stata accolta con 
grande interesse dagli operatori del 
settore, un intero padiglione verrà 
dedicato esclusivamente al 
COMPUTER GRAPHICS ed alle sue 
applicazioni. 

In concomitanza con la mostra e 
quale momento di aggiornamento 
e approfondimento delle più attuali 
tematiche dell'Informatica, si 
terranno due seminari di studio: 

6-7 FEBBRAIO - in collaborazione 


con la CITIBANK NA: “Cinque 
tecnologie innovative per 
l'informatica e loro applicazioni: 
integrazione circuitale, optical disc, 
I/O voice, business graphics e 
linguaggi della quarta generazione". 
Coordinatore: Dr. Gianfranco Minati. 
Quota di partecipazione: 

Lire 200.000. 

8 FEBBRAIO: “La grafica nella 
realtà aziendale e industriale". 
Coordinatore: Ing. Roberto Favero. 
Quota di partecipazione. 

Lire 100.000. 

Per ulteriori informazioni sulla 
mostra e sulle modalità di 
partecipazione al seminario, 
contattare: CENTRO COMMERCIALE 
AMERICANO - TEL. 02/4696451 - 
TELEX 330208 USIMC I. 
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Generalizzando si ha che le disposizioni semplici di n 
clementi di classe k sono: 


D (n , k) = n (n — 1) (n — 2) ... (n - k + 1) 

che è il prodotto dei numeri interi compresi tra n ed(n 
- k + 1). 

Combinazioni semplici 

Dati n oggetti, quanti gruppi di k di essi diversi 
posso formare non tenendo conto dell’ordine? 
Esemplificheremo la risposta a tale domanda me¬ 
diante il gioco del lotto, supponendo, per semplicità, 
che vengano estratti solo tre numeri e calcolando in 
tal caso quante sono le possibili terne ottenibili da 
un’estrazione su 90 numeri. 

Se tenessimo conto dell’ordine d’estrazione, saprem¬ 
mo già che il numero cercato sarebbe dato dalle 
disposizioni semplici di 90 elementi di classe 3; dob¬ 
biamo essere dunque vicini alla soluzione: basta ri¬ 
cordare che tre oggetti possono essere ordinati in 3! 
modi diversi, quindi il numero totale di terne sarà: 

D (90 , 3) _ 90 x 89 x 88 _ , 1748() 

P (3) 3x2x1 

Abbiamo dunque stabilito che giocando un “temo 
secco’’ in questo gioco del lotto con tre estrazioni c’è 
una probabilità su 117480 di vincere. Naturalmente, 


in realtà, visto che vengono estratti 5 numeri tale 
probabilità è un po’ maggiore. 

In conclusione: le combinazioni semplici di n clemen¬ 
ti di classe k sono: 

C( n,k) = n(n-l)-(n-k-M ) = -n!- 

k! (n - k) ! k ! 

ed è bene ricordare che vale la seguente relazione: 

C (n , k) = C (n , n - k) 

che si spiega pensando che per ogni gruppo di k 
elementi che scegliamo resta un altro gruppo compo¬ 
sto dagli n - k elementi rimasti, il che, ripensando al 
nostro esempio, vuol dire che una volta estratto un 
terno tra i 90 numeri resta univocamente determinato 
il gruppo degli 87 numeri ancora nell’urna. 


Permutazioni con ripetizione 

Siano dati n elementi tra i quali ve ne siano 
kl, k2, ..., kr 

rispettivamente uguali tra loro: sarà quindi, ovvia¬ 
mente, 

kl + k2 + ... + kr = n. 

Vogliamo sapere quante permutazioni distinte pos¬ 
siamo ottenere con questi n elementi. Come esempio 
proviamo a pensare di avere 5 palline, 3 rosse e 2 nere; 
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6030 GOSUB 15000 
6040 SN(C) = - SN(C> 

6050 fi = 01 
6060 RETURN 

6070 IF SN(B) < > O THEN 6100 

6000 GOSUB 15000 

6090 RETURN 

6100 CO = 2 

6105 CO = 2 

6110 Z = fiBS (SN(fi) - SN(B)) / 2 

+ 1 

6120 ON Z GOSUB 6200,5200 
6130 XF SN <fi) ( > - 1 OR CO = 

0 THEN RETURN 
6140 SN <C) « - SN(C) 

6150 RETURN 

6200 GOSUB 14100 

6210 IF CO < >0 THEN 6240 

6220 SN(C) =0 

6230 RETURN 

6240 IF CO » - 1 THEN 6270 

6250 GOSUB 6400 
6260 RETURN 
6270 fil = fi 


6200 

fi « B 


6230 

B * fil 


6300 

GOSUB 6400 


6310 

SN(C) = - 1 


632u 

B =■ fi 


6330 

fi «s fil 


6340 

RETURN 


6400 

SN (C) => 1 


6410 

GOSUB 6500 


6420 

IF PF(fi) = PF(B> 

THEN 6440 

6430 

GOSUB 6600 


6440 

GOSUB 6700 


6450 

RETURN 


6500 

CB = 0 


6510 

FOR I = 0 TO PF (Bl 

6520 

NU < C, T. > = NU ( fi, I) 
CB 

- NU(B,I) 

6530 

IF NU(C,I) > = 0 

0: GOTO 6560 

THEN CB = 

6540 

NU(C, I) = NU(C, I ) 

+ BB 

6550 

CB = 1 


6560 

NEXT I 


6570 

RETURN 


6600 

FOR I = PF(B) + 1 

TO PF(fi) 

6610 

NU(C, I) = NU(fi, I ) 

- CB 

6620 

IF NU(C.I) > = 0 

THEN CB = 
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O: GOTO 6650 

6630 NU(C,I) = NU(C,I) + BB 
6640 CB = 1 
6650 NEXT I 
6660 RETURN 

6700 FOR I = PF(O) TO O STEP - 
1 

6710 IF NU < C,I) < > 0 THEN 6730 

6720 NEXT I 
6730 PF(C) = I 
6740 RETURN 

7000 IF SN (A) < > 0 AND SN(B) < 

> 0 THEN 7030 
7010 SN <C) = O 
7020 RETURN 
7030 GOSUB 18000 
7040 FOR IA = 0 TO PF(A) 

7050 FOR IB = 0 TO PF(B) 

7060 IC ~ IO + IB 

7070 IF IC = N THEN PRINT "NUME 
RO TROPPO GRANDE": STOP 
7080 NIJ(C, IC) = NU<C, IC) + NU(A, I 
A) * NU(B,IB) 

7030 NEXT IB 
7100 FOR I = IA TO IC 
7110 IF NU(C,I) < BB THEN 7160 
7120 IF I = N - 1 THEN PRINT "N 
UMBRO TROPPO GRONDE": STOP 
7130 Z = INT (NU <C,I) / BB) 

7140 NU (C, I ) - NU <C, I ) -- Z * BB 
7150 NU(C,I + 1) = NU(C,I + 1) + 

Z 

7160 NEXT I 
7170 NEXT IA 

7180 IF I = N THEN PF(C) =1-1 
: GOTO 7210 

7130 IF NU < C, I ) = 0 THEN PF(C) = 
I - i: GOTO 7210 
7200 PF(C) = I 
7210 SN(C) = SN(O) * SN(B) 

7220 RETURN 
8000 C2 = C 

agio r: = k - ì 

8020 CT = NT 
8030 NT « NP 
8040 GOSUB 17000 
8050 B2 = B 
6060 B - C 
8070 C = C2 

8080 ON 30 GOSUB 5000,6000*7000 

8090 B = B2 

8100 NT = CT 

8110 RETURN 

9000 SN ( C ) = :: 

9010 PF(C) = 0 
9020 MIJ(C, O) •= 1 


9030 IF ES =0 THEN RETURN 

9040 AI = O 

9050 Bl = B 

9060 CI = C 

3070 C = K - 3 

9080 GOSUB ! 5000 

9090 CE = ES 

9100 CB = CE INT <CF / 2) * 2 

9110 IF CB = 0 THEN 3190 

9120 O = CI 

3130 C = K - 1 

9140 GOSUB 15000 

9150 O = K - 3 

9160 B = C 

9170 C = CI 

9180 GOSUB 7000 

9190 CE = (CE - CB) / 2 

9200 IF CE =0 THEN 3290 

9205 0 = K - 3 

9210 C = K - 2 

9220 GOSUB 15000 

9230 C = K - 1 

9240 GOSUB 15000 

9250 A = K - 1 

9255 B = K - 2 

9260 C = K - 3 

9270 GOSUB 7000 

9280 GOTO 9100 

9290 A = Al 

9300 B = Bl 

9310 C = CI 

9320 RETURN 

9500 NT = BS 

9510 CI = C 

9520 C = K - 4 

9530 GOSUB 17000 

9540 A2 = A 

9550 O = K - 4 

9560 C = CI 

9570 GOSUB 9000 

9580 0 = A2 

9590 RETURN 

10000 IF SN(B) =0 THEN PRINT " 
TENTATIVO DI DIVISIONE PER 0 
'•« STOP 

100IO GOSUB 14100 

10020 IF CO < >0 THEN 10080 

10030 SN(C) = 1 

10040 PF (C) = O 

10050 NU(C,O) = 1 

10060 SN (D) =0 

10070 RETURN 

10080 IF CO = 1 THEN 10160 

10090 SN(C) =0 

10100 CI = c 

10110 C = D 

10120 GOSUB 15000 

10130 SN(D) = OBS (SN(D)> 

10140 C = CI 
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in quanti modi possiamo ordinarle? 

Se riuscissimo a distinguere le palline dello stesso 
colore, con le rosse potremmo formare 3! permuta¬ 
zioni e con le nere potremmo formarne 2!; si può 
dunque arguire che, non avendo alcun mezzo per 
distinguere le palline dello stesso colore, il numero di 
permutazioni sarà senza dubbio minore di quello di 5 
elementi distinti, cioè, nel nostro caso: 


PR (5 ; 2, 3) = ——— = 10 
2! x 3! 


ed in generale: 

PR( n;kl,k2,...,kr)= --- 

kl! x k2! x ... x kr! 

Questo è anche il numero complessivo di modi in cui 
n oggetti distinguibili possono essere ripartiti tra r 
gruppi, nel caso in cui ciascuno di essi ne debba 
contenere rispettivamente kl, k2.kr. 


Disposizioni con ripetizione 

Definiremo le disposizioni con ripetizione analo¬ 
gamente a quelle semplici, con la differenza che cia¬ 
scun elemento potrà comparire ripetuto più di una 
volta nello stesso gruppo; è chiaro che il numero di 
elementi tra cui scegliere rimarrà costante, quindi il 
numero di disposizioni con ripetizione sarà dato dal 
numero di elementi moltiplicato k volte per se stesso, 
ovvero: 

DR (n , k) = n A k 

Quale appassionato del Totocalcio non si è chiesto 
almeno una volta quante colonne bisognerebbe gio¬ 
care per avere la certezza assoluta di fare 13? 
Ebbene, si tratta di calcolare le disposizioni con ripe¬ 
tizione di 3 elementi (1, X, 2) di classe 13 (numero di 
pronostici) cioè: 

3 A 13 = 1594323. 

Questo è il numero totale di colonne; moltiplicando¬ 
lo per il prezzo attuale di una colonna, 350 lire, 
otteniamo che la certezza del 13 ci costerebbe più 
di 558 milioni!!! 


Combinazioni con ripetizione 

Ritornando al gioco del lotto ci chiediamo: cosa 
succede se dopo ogni estrazione rimettiamo nell’urna 
il numero estratto? Con un ragionamento analogo a 
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10150 RETURN 
10160 SN(C) = 1 
10170 SN(D) = 1 

101 SO IF PF(B) < > O THEN 10300 


10190 PF(D> = 0 
10200 NU < D,O) =0 

10210 POR I «= PF(A> TO O STEP - 
1 

10220 CB = NU(D,0> * BB + NU(A,r> 


10230 NU(C,I) = INT (CB / NUCB,0 
) ) 

10240 NIJ <D, O) = CB - NU(C, I) * NU 
(B, 0) 

10250 NEXT I 

10260 Ir NU(C,PF( A) ) = 0 THEN PF 
(C) = PF(A) - 1! RETURN 
10270 PF <C) = PF(A) 

10280 RETURN 
10300 A3 = « 

10310 B3 « B 
10320 C3 = C 
10330 TT = NP 

10340 DI = INT (BB / (NU<B, PF(B) 
> + 1 ) > 

10350 NP = DI 
10360 C = K - 3 


10370 SO 13 3 
10380 GOSUB S000 

10390 IF PF(K - 3) = PF(A> THEN 
PF (K - 3) = PF (K - 3) + 1 : NU 
(K - 3,PF(K - 3)) =0 
10400 A = B3 
10410 C K - 2 
10420 GOSUB 8000 
10430 PF(K — 4) = PF(B) +1 
10440 FOR ID = PF <K - 3) TO PF(K 
- 2) + 1 STEP - 1 
10450 IF NU(K - 3,ID) = NU(K - 2 
,PF(K - 2)> THEN DB = BB - 1 
: GOTO 10470 

10460 DB = INT ((NU(K - 3,ID) * 

BB + NU(K - 3,ID - 1>> / NU( 

K - 2, PF (K - 2) ) > 

10470 DS = (NU (K -- 3, ID) * BB + N 
U(K - 3,ID - 1) - DB * NU(K - 
2,PF(K - 2))) * BB + NU(K - 
3; ID - 2) 

10480 IF NU <K - 2,PF(K - 2) - 1) 

* DB > DS THEN DB = DB - 1 : 
GOTO 10470 
10490 SN <K - 4) = 0 
10500 FOR I = ID TO ID - PF(K - 
2) - 1 STEP - 1 

10510 IF NU(K - 3,I) < >0 THEN 

SN(K - 4) = 1 

10520 NU <K - 4,PF<K - 2) + 1 - ID 
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11000 SN(D) = 1 

+ I ) - NU <K - 3,1) 


11010 PF(D) = PF(K - 2) 

10530 NEXT I 

10540 NP = DB 


11020 FOR I = PF(D) TO 0 STEP - 
1 

10550 0 - K - 2 


11030 IF NU(D,I) < > 0 THEN PF( 

10560 C = K - 5 


D) =ls GOTO 11060 

10570 GOSIJB 8000 


11040 NEXT I 

10580 A = K - 4 


11050 SN(D) = 0 

10590 B = K — 5 


11060 A = A3 

10600 C = K - 1 


11070 B = B3 

10610 GOSIJB 6000 


11080 C — C3 

10640 IF PF(C) » PF(A> THEN 1068 


11090 NP = TT 

(') 


11100 RETURN 

10650 FOR I = PF(C) + 1 TO PF<K - 


13000 IF SNCC) = 0 THEN PRINT " 

4) 


0": RETURN 

10660 NU(C,I) = 0 


13010 IF SN(C) = - 1 THEN PRINT 

10670 NEXT I 


» 

10680 LU = 0 


13020 Z = 0 

10690 IF SN(C) > - 1 THEN 10770 


13030 FOR I = PF(C) TO 0 STEP - 
1 

13040 A* = STR* (NU <C, I> > 

10700 SN(C) = 1 


10710 FOR I = 0 TU PF(A) 


13050 IF Z = 0 THEN 13110 

10720 NU (C, I ) = BB - NIJ(C, I) - LU 


13060 LU = L.EN <A$> 

13070 IF LU = CF THEN 13110 

10730 LU = 1 


13.080 FOR IC = 1 TO CF - LU 

10740 NEXT I 


13090 A* = "0" + A* 

10770 FOR 1 = XD TO XD - PF(A) STEP 


13100 NEXT IC 

- 1 


13110 PRINT 0$; 

10780 NU < K - 3, X) = NU(C,PF(A> - 


13120 Z = 1 

ID + I) 


13130 NEXT I 

10790 NEXT I 


13140 PRINT 

10800 NLKC3, ID - PF(A)> = DB 


13150 RETURN 

10810 IF LU = 0 THEN 10910 

10820 NUCC3,ID - PF(A>> = DB - 1 


14000 IF SN(A) < SN(B) THEN CO « 

- 1 : RETURN 

10830 LU = 0 


14010 IF SN(A) > SN(B) THEN CO “ 

10840 FOR I ** ID - PF(A> TO ID - 


1 : RETURN 

1 


14020 GOSUB 14100 

10850 NU <K -3,1) = NU(K - 2, I - 
ID + PF(A)) + LU 


14030 IF SN(A) = - 1 THEN CO = 

- CO 

10860 IF NU (K - 3, I) < BB THEN L. 


14040 RETURN 

U — 0 ! GOTO 10890 

10870 NU <K - 3, I) = NU(K - 3, I) - 


14100 IF PF(A) < PF(B) THEN CO = 

- 1 : RETURN 

BB 


14110 IF PF(A) > PF(B) THEN CO - 

10880 L.U = 1 


l: RETURN 

10890 NEXT I 

10900 NU(K — 3, I> = NU<K - 3, I) + 


14120 FOR I = PF(A) TO 0 STEP - 
1 

LU - BB 


14130 IF NU(A,I) < NU(B,I> THEN 

10910 NEXT ID 


CO = - 1 : RETURN 

10920 PF(C3> = PF(K - 3) - PF(K - 


14140 IF NU(A, I> > NU(B, I) THEN 

2) - 1 


CO = 1 : RETURN 

10930 IF NU <C3,PF(C3)> = 0 THEN 


14150 NEXT I 

PF(C3) = PF(C3) - 1 


14160 CO = 0 

10940 LU = 0 


14170 RETURN 

10950 FOR I = PF(K - 2) TO 0 STEP 


15000 SN(C) = SN(A) 

- 1 


15010 PF(C) = PF < A) 

10960 CE = LU * BB + NU(K - 3, I) 


15020 FOR I = 0 TO PF(A) 

10970 NU(D,I) = INT (CE / DI) 


15030 NU(C,I) = NUCA,I) 

10980 LU = CE - NU(D,I) * DI 


15040 NEXT I 

10990 NEXT I 


15050 RETURN 
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16000 IF C4 = "O" THEN SN<C> = O 
: RETURN 
16010 A4 = C4 

16020 IF LEFT4 (A4,1) ( > THEN 

SN(C) = ls BOTO 16050 
16030 SN(C) = - 1 

16040 A* = MID4 (A*,2) 

16050 LU = L.EN (A*) 

16060 IF LU > N * CF THEN PRINT 
"NUMERO TROPPO BRANDE": STOP 

16070 PF(C> == INT ((LU - 1> / CF 
) 

16080 FOR I = PF(C) TO 0 STEP - 
1 

16090 IF LU ) CF THEN 16120 
16100 NU(C,PF(C) - I) = VAL (A*) 

16110 RETURN 

16120 NU(C,PF <C) - I) = VAL ( RISHT4 
(A»,CF)) 

16130 A* = LEFT4 (A*,LU - CF) 

16140 L.U = LEN (A*) 

16150 NEXT I 

17000 IF NT = O THEN SN(C> ■ O: RETURN 
17010 A* = STR4 (NT) 

17020 IF NT > 0 THEN SN(C) = 18 GOTO 
17050 

17030 SN(C> = - 1 

17040 A4 = MIO» (A*,2) 

17050 FOR I = 0 TO 2 
17060 LU = LEN (A4) 

17070 IF LU < = CF THEN NIJ(C,I> 

= VAL (A4):PF(C) = I: RETURN 

17080 MU(C,I) = VAL ( RIGHT4 (A4 
, CF) ) 

17090 A4 => LEFT4 (A4,LU - CF) 

17100 NEXT I 

18000 SN(C) =0 

18010 PF(C) = 0 

18020 FOR I = 0 TO N - 1 

18030 NU(C,I) =0 

18040 NEXT I 

18050 RETURN 


quello fatto per le disposizioni, ammettendo che sia 
possibile far comparire più volte un elemento nella 
stessa combinazione, si può giungere alla conclusio¬ 
ne che il numero di combinazioni sarà certamente 
maggiore. 

1 calcoli sono resi immediati dalla seguente relazione: 
il numero di combinazioni con ripetizione di n ele¬ 
menti di classe k è uguale al numero di combinazioni 
semplici di (n - 1 + k) elementi di classe k, cioè: 

CR (n, k) = C (n - 1 + k, k). 



Figura 1. Il diagramma che schematizza la routine che 
calcola le disposizioni semplici: vengono usali i registri 
0 ed I, alternativamente, per eseguire il prodotto tra un 
numero piccolo ed uno in multipla precisione. Al termi¬ 
ne. C indica il numero del registro che contiene il 
risultato. 


55 





















































Libri firmati JACKSON 


Paul M. Chirlian 

IL BASIC PER TUTTI 

Un facile testo propedeutico Indirizzato a coloro 
che, attraverso il BASIC, si vogliono 
familiarizzare con la programmazione e, più in 
generale, con i calcolatori. Elementare, ma 
esauriente, il volume si raccomanda anche a 
chi, pur già esperto, voglia approfondire 
particolari aspetti di questo linguaggio. 

240 pagine 

Codice 525 A L. 17.500 
Bonelli - Gianni 

ALLA SCOPERTA DEL VIC 20 
Architettura e tecniche di programmazione 

Un libro chiave indirizzato agli utenti BASIC del 
VIC 20 e a chi desidera approfondire anche 
l'aspetto hardware di questo diffusissimo 
Personal. Tutti i programmi esposti nel volume 
sono disponibili - a richiesta - su cassetta o 
floppy disk. 308 pagine. 

Codice 338 D L. 22.000 


Mark Ramshaw 
GIOCHI GIOCHI GIOCHI 
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Un libro pieno di eccitanti scoperte per tutti 
coloro che possiedono un VIC 20 e tanta voglia 
di divertirsi. 29 programmi di giochi 
interessantissimi, che spaziano su una quantità 
incredibile di argomenti. 

Un libro diverso, da mettere in pratica e da 
utilizzare per trarre sempre nuovi spunti 
divertenti. 116 pagine. 

Codice 557 D L. 9.000 

Tim Hartnell 

SINFONIA PER UN COMPUTER VIC 20 

Giocare è il modo più semplice e divertente per 
imparare ad usare un computer. Lo prova 
questo libro, i cui giochi sono stati scelti 
proprio con l'intento di coprire nel modo più 
completo possibile tutta la gamma di 
prestazioni che questo calcolatore offre. 

128 pagine 

Codice 563 D L. 10.000 
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Il programma 

Il programma, in linea di principio molto semplice, 
è stato complicato dall’uso delle routine di multipla 
precisione, che impongono di usare dei registri invece 
delle consuete variabili. Per i nostri scopi sono suffi¬ 
cienti quattro registri, la cui lunghezza è inizialmente 
di 100 cifre, ma che può essere variata nel corso stesso 
dell’esecuzione del programma nel caso serva una 
precisione maggiore. 

Uno dei problemi introdotti dall’uso delle suddette 
routine è quello della lentezza di esecuzione; per 
cercare di porvi rimedio c stato adottato un piccolo 
accorgimento: data la frequenza con cui viene calco¬ 
lato il fattoriale di numeri piccoli, viene costruita una 
tabella contenente il fattoriale dei primi 13 numeri 
interi per i quali non è necessaria la multipla precisio¬ 
ne, affinché non si debba calcolarli ogni volta, ma sia 
sufficiente richiamarli dalla tabella e trasferirli in un 
registro. 

Sulla routine che calcola le disposizioni semplici sono 
imperniati praticamente tutti i calcoli eseguiti dal 
programma, dal calcolo dei fattoriali alle combina¬ 
zioni con ripetizione. 

È da notare che data la frequenza con cui apparivano 
certe didascalie, si è preferito memorizzarle come 
stringhe per non appesantire i listati e per snellire 
l’occupazione di memoria. 

L’uso dei registri e la necessità di sveltire i calcoli 
ha imposto di adoperare alcuni trucchi del mestiere; 
per esempio, le righe 410 c 272, che a prima vista 
potrebbero apparire oscure, sfruttano il fatto che in 
BASIC una variabile logica o booleana assume i 
valori numerici 0, se è falsa, 1, se è vera e servono ad 
evitare di dover copiare i risutati di un’operazione da 
un registro ad un altro nel corso di lunghi cicli, cosa 
che porterebbe via parecchio tempo, specie nel caso 
in cui si stia lavorando con una precisione molto alta. 
Questo discorso risulterà certamente più chiaro dopo 
aver esaminato il diagramma di flusso in figura 1. 
Questo genere di programmazione, che il Prof. Wirth 
ha definito “artistica”, è di norma da evitare, per non 
compromettere la generalità e la leggibilità dei pro¬ 
grammi, ma si impone in casi in cui lo scopo sia 
quello di minimizzare i tempi di esecuzione o l’occu¬ 
pazione di memoria. 

Ancora per questioni di velocità, nel caso si lavori 
con numeri piccoli, si consiglia di tenere più basso 
possibile il numero di cifre dei registri, che per default 
è 100, variandolo mediante l’opzione 7 del program¬ 
ma. ■ 


fìGL/OFT 

Commodore software house 


prof. Giuseppe Alla - Via San Francesco Nuovo, 6 
04019 TERRACINA (LT) - tei. 0773/727925-730281 


PER IL CBM 8000: 

ORARIO SCUOLA MEDIA 

Una completa e sofisticata procedura per la compilazione dell'orario scolastico 
strutturala in sette programmi (tecnica di overlay) aggiornata alle vigenti leggi 
in materia scolastica. Consente la stampa automatica di qualsiasi cosa inerente 
i'orario: 

1) orario per materia 

2) orario per insegnanti 

3) elenco insegnanti con materie e classi 

4) giorni liberi degli insegnanti 

5) scheda insegnante 

6) cartellino orario per ogni insegnante. 

Il programma prevede un massimo di 36 classi e consente la compilazigne di un 
orario in pochissimo tempo poiché controlla automaticamente le ore scritte sul 
tabellone, i giorni liberi, i giorni occupati in altre scuole, i buchi, le prime e le 
guinte ore ecc. 

Eccezionale la parte riguardante l'orario di Ed. Fisica poiché gestiscegli abbina¬ 
menti dichiarati in modo del tutto automatico, un'ora assegnata ad una classe 
viene contemporaneamente assegnata (o tolta) alle classi abbinate. 

Oi questo programma attualmente è disponibile questa versione per la Scuola 
Media inferiore e per il CBM 8000. 

Sono in lavorazione varie versioni per le scuole superiori. 

Per il CBM 64 sarà disponibile non appena ci sarà una scheda che consente l'uso 
di SO colonne di schermo (pare sia già uscita). 

PER IL CBM 64: 

UNA SERIE DI PROGRAMMI ECCEZIONALI PER L'USO SOFISTICATO DEL REGI¬ 
STRATORE: 

1) AGI SPRINT L. 30.000 - Esso aumenta di dieci volte la velocità del Load. del 
Save e del Verify ed in più implementa il comando MERGE (veloce) che 
consente di unire due programmi. Il programma una volta caricato in 
memoria si alloca in spazi protetti (da SC000 a SCFFF) e resta residente fino a 
che non si spegne il computer. Usato con un registratore munito di contagiri 
consente un risparmio di cassette di molto superiore alle dieci volte anche in 
considerazione del fatto che lascia pochissimo spazio tra un programma ed 
un altro, giusto quello necessario a passare la parte neutra all'inizio del 
nastro 

2) AGISPRINT 2 L. 30.000 - Lo stesso programma Agiprint allocato in una parte 
diversa di memoria (da 9000 a 9FFF), 

3) AGISPRINT 3 L. 50.000 - Oltre tutti i comandi sprint esso crea e gestisce un 

f iccolisslmo file dati che va registrato all'Inizio di ogni nuova cassetta, 
ale file è simile alla directory del disco e può essere aggiornata in qualsiasi 
momento. 

Esso gestisce in modo autonomo il registratore La sua caratteristica princi¬ 
pale é l'uso dei tasti di scorrimento veloce e l'arresto automatico del regi¬ 
stratore alla posizione di nastro desiderata 

Questo programma è un vero gioiello indispensabile a qualsiasi possessore 
di CBM 64 e registratore poiché oltre i comandi sprint implementa due 
comandi relativi alla directory: 

a) - 0 - che consente l'uso del programma con l'ultima directory letta. 

poiché questa resta in memoria fino a che non si legge una 
nuova directory: 

b) - S - legge una nuova directory. 

4) BACSPRINT L. 40 000 - Oltre tutti i comandi sprint esso consente il backup 
disco-cassetta sia totale che selettivo. I programmi sono registrati su cas¬ 
setta in print. E velocissimo, consente di trasferire un disco pieno su nastro 
in meno di cinque minuti. 

5) AGITAPE L. 40.000 - Potente tool kit, oltre tutti i comandi sprint implementa i 
seguenti comandi indispensabili ad un programmatore non più principiante: 
HELP, AUTO. TRACE. RENUMBER (che aggiorna i goto. then. gosub)e inoltre 
DELETE. FIND, DUMP etc 

6) TAPESTAR L. 30.000 - Che consente la registrazione di un programma con 
autostart (quando verrà richiamato partirà automaticamente senza il RUN), 
utilissimo per proteggere i programmi Nelle istruzioni sono descritte le 
forme di protezione. 

LA SERIE SPRINT COMPLETA E IN OFFERTA SPECIALE A L. 150.000 

Disponiamo inoltra' 

1) di molti programmi sul TOTOCALCIO sia per 18000 che per il 64: 

2) di tutti o quasi i programmi circolanti del C64 e del CBM 8Ò00 a prezzi irrisori. 

Per informazioni scrivere o telefonare al 0773/727925 dalle 16 alle 20 

__ ) 
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Intelligenza artificiale 
sullo Spectrum 

di Luciano ioni 


L e porte della quinta gene¬ 
razione sono state aperte: 
nuovi programmi, capaci 
di fornire consulenze a livello dei 
maggiori esperti, operano nella chi¬ 
mica, matematica, elettronica ed al¬ 
tri campi ancora. 

Eccone una panoramica generale, 
che verrà seguita da un programma 
che riproduce in piccolo alcune delle 
capacità degli Expert System. 


Le caratteristiche comuni 

Il dialogo riportato in figura I, 
apparentemente tra due dottori, av¬ 
viene in realtà tra un medico ed un 
computer. 

Esso è stato ottenuto da un elabora¬ 
tore su cui era implementato un Ex¬ 
pert System (da ora E.S.) esperto, 
appunto, in medicina. 

Gli E.S. sono capaci di comprendere 
semplici frasi in linguaggio naturale 
(quello che noi usiamo comunemen¬ 
te per comunicare), anche se incom¬ 
plete e contenenti errori (natural¬ 
mente con i dovuti limiti). 

Il loro modo di operare è altamente 
inter-attivo: è infatti il programma 
che chiede all’utente le informazioni 
che gli servono per procedere con 
l’elaborazione. 

Vi è inoltre la possibilità di un com¬ 
pleto controllo dei processi che av¬ 
vengono nel calcolatore: si può in¬ 
fatti domandare perché viene posta 
una certa domanda ed ottenere la 
visualizzazione dei “ragionamenti” 


Zx Expert 

- — Parte prima — - 


«È stata recentemente avviata una 
chemioterapia per combattere speci¬ 
ficamente l'agente infettivo?» 

«No» 

« Il paziente Jeremiah Sample è infiam¬ 
mato?» 

«Perché lo vuoi sapere?» 

« Perché: 

se: 1) l'agente è stato localizzato nel 
sangue e 

2) l'identità dell'agente non è cono¬ 
sciuta con certezza e 

3) dalla colorazione si sa solo che ap¬ 
partiene ai Gram-Negativi e 

4) la forma dell'agente è a bacchetta e 

5) il paziente è stato seriamente in¬ 
fiammato. 

allora: 

c'è qualche debole possibilità che l'a¬ 
gente infettivo sia uno Pseudomo- 
nas?». 

«No» 

(A questo punto la macchina formula 
altre ipotesi aggiuntive) 

«La malattia provocata nel paziente 
dall’agente batterico sconosciuto è 
stata acquisita in ospedale?» 

«Si» 

«Il paziente Jeremiah Sample può es¬ 
sere considerato debilitato per suo 


conto (es. alcolista, sprovvisto di anti¬ 
corpi, ecc.)?» 

«No» 

«Il paziente Jeremiah Sample ó slato 
sottoposto a qualche intervento chi¬ 
rurgico o a qualche manipolazione del 
tratto genito-urinario (es. cateterizza¬ 
zione, cistoscopia e simili)?» 

«Perché lo vuoi sapere?» 

«lo sto cercando di identificare il tipo 
di agente infettivo. 

So già che: 

la via d'entrata dell'agente è il tratto 
genito-urinario superiore 
la forma dell'agente è a bacchetta 
la colorazione dell'agente è Gram- 
Negativa 

la localizzazione dell'agente è nel san¬ 
gue 

perciò, se: 

1) il paziente non è stato sottoposto a 
manipolazione del tratto genito¬ 
urinario e 

2) l'infezione del tratto genito-urinario 
non è stata la malattia per il quale il 
paziente è stato finora curato 
allora: 

ci sono buone possibilità che l'agente 
infettivo sia l'Escherichia coli». 


Figura I. Ecco un dialogo frano da MYCÌ N, un programma che individua le 
in fezioni del sangue e ne suggerisce la cura. Va nonna la facilità d’uso e 
/'interattività. (Tratto da Scienza e Vita Nuova. Rusconi Editore). 


compiuti. 

Parte di essi è dotata di speciali sot¬ 
toprogrammi, che permettono l’ac¬ 
quisizione automatica di nuova co¬ 
noscenza. 

Gli E.S., operando in vari settori, 
hanno tra loro notevoli differenze; si 
possono comunque individuare al¬ 
cune caratteristiche comuni a tutti 
(figura 2). 


La base di conoscenza 

Negli E.S. il livello di esperienza 
non è intrinseco nel programma, ma 
dipende dalla quantità di dati conte¬ 
nuti nella base di conoscenze. 

Per aumentare la potenza di uno di 


essi non occorre pertanto l’interven¬ 
to di un programmatore, ma è suffi¬ 
ciente operare sui dati. 

La base di conoscenze non è il solito 
insieme di dati, ma è formata da 
regole. 

Esse hanno una sintassi molto sem¬ 
plice c sono scritte in linguaggio na¬ 
turale (figura 3). 

Vanno intese nel seguente modo: ciò 
che segue il THEN (ALLORA) è 
vero e da prendere in considerazione 
solo se lo è tutto quanto sta tra l’IF 
(SE) ed il THEN. 

Questa regola è solo un esempio: 
altri E.S. permettono di affiancare 
agli antecedenti (ciò che precede il 
THEN) dei coefficienti di probabili¬ 
tà, di farlo pure con i conseguenti 
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(ciò che lo segue) ed altre varianti 
ancora. 


Il motore d’inferenza 

Il motore d’inferenza è il pro¬ 
gramma vero e proprio. 

È una specie di traduttore di un nuo¬ 
vo linguaggio ad altissimo livello, 
formato da regole. 

È il cardine dell’intero sistema: deve 
coordinare i vari sottoprogrammi 
che compongono l’E.S., formare le 
strutture logiche implicite nelle re¬ 
gole, eseguire le regole. 


Input-output 

Il sottoprogramma di input- 
output è responsabile della verifica, 
mediante dialogo con l’utente, del 
valore di verità (VERO FALSO) 
delle informazioni che gli passa il 
motore di inferenza. 

Esso compie una comprensione 
“meccanica” delle frasi in input e 
riesce a risolvere problemi di incom¬ 
prensione chiedendo precisazioni 
all’utilizzatore. 

Digitando ad esempio "Stammpa il 
risultato dell’operazione” ci si po¬ 
trebbe veder rispondere: “Non co¬ 


nosco la parola stammpa. Quella 
più simile è stampa: va bene?’’. 

Il sottoprogramma deve anche vi¬ 
sualizzare i ragionamenti che l’E.S. 
effettua e le cause che lo spingono a 
porre una domanda: operazione che 
svolge agendo sulle regole e sui fatti 
già noti. 

La memoria attiva 

Il calcolatore riserva una partico¬ 
lare arca di memoria per registrare 
le domande già poste e i loro esiti. 
Prima di chiedere qualcosa all’uten¬ 
te il programma scorre la memoria 
per vedere se conosce già la risposta. 
Ciò evita la noiosa ripetizione di ri¬ 
chieste, rendendo il computer più 
efficiente. 

L'apprendimento 

Questa è una capacità che molti 
E.S. possiedono e che, oltre all’inte¬ 
resse puramente teorico, rende dei 
grossi vantaggi per chi li usa. 

Per perfezionare gli E.S. basta usare 
la tecnica dell’apprendimento: si ri¬ 
sparmierà cosi molta fatica. 

Negli E.S. che non possono svolgere 
autonomamente questa funzione sa¬ 
rà l’esperto che aggiungerà nuove 
regole, e cioè delle vere iniezioni di 
“sapere”. 

Il backward-chaining 

Ma, in realtà, qual'è il procedi¬ 
mento che sta alla base di tutto? 

Gli E.S. debbono solitamente risol¬ 
vere problemi che appartengono al 
seguente tipo: data una situazione 
iniziale, scegliere tra le alternative 
possibili la migliore strategia risolu¬ 
tiva. 

Questa classe di problemi si rappre¬ 
senta con un albero rovesciato (l'igu- 



Figura 2. Ecco le pani principali che costi nascono gli E. S.. L'apprendimen¬ 
to non sempre è automatico e, in questi casi, saranno gli esperti ad aggiun¬ 
gere nuova conoscenza. 


RULE 037 

IF I) The identity of thè organista is not known with certainty, and 

2) thè stain of thè organista is gramneg, and 

3) thè morphology of thè organism is rod, and 

4) thè aerobicity of thè organism is aerobic 

THEN There is strongly suggestive evidente (.8) that thè class of thè 
organism is entcribactcriaceae 

SE I) L’identità delPorganismo non è conosciuta con certezza, c 

2) la colorazione dell'organismo è gramnegativa, e 

3) la morfologia delPorganismo è a bastoncello, e 

4) l’aerobicità dell’organismo c aerobica 

ALLORA C’è una suggestiva evidenza (.8) che la classe dell’organismo è 
cnterobatterica. 

Figura 3. Ecco un esempio di regola. La possibilità di usare il linguaggio 
naturale ne permette la stesura anche dai non informatici. 
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ZX Expert 

ra 4) in cui il nodo superiore, la radi¬ 
ce, rappresenta la situazione attuale 
ed i nodi inferiori tutte le azioni pos¬ 
sibili. 

I problemi possono venire risolti 
analizzando ramo per ramo, trovan¬ 
do con certezza, al termine della ri¬ 
cerca, qual’è l’alternativa più frut¬ 
tuosa. 

Si può però vedere il problema sotto 
un’altra luce: supponiamo di posse¬ 
dere delle “schede” in cui, per ogni 
azione, siano indicate le condizioni 
perche essa sia da considerare effi¬ 
ciente ai fini della risoluzione. 

Confrontando le schede con la si¬ 
tuazione reale e trovandone una con 
tutte le premesse verificate avremo 
una strategia valida che risolve la 
questione. 

Ogni scheda si potrebbe illustrare 
come un piccolo albero rovesciato, 
in cui la radice indica l’azione e i 
nodi inferiori le condizioni. 

Gli E.S. usano proprio questo pro¬ 
cedimento, il backward-chaining 
(concatenazione a ritroso), solo che 
le schede si chiamano regole. 

In realtà la situazione è un poco più 
complessa: si possono scrivere rego¬ 
le per specificare le condizioni di al¬ 
tre. 

Potrebbero esserci, ad esempio, le 
seguenti due: se (IF) c’è brutto tem¬ 
po, allora (THEN) semina cavoli; se 
piove e tira vento, allora c’è brutto 
tempo. 

In questi casi i programmi uniscono 
gli alberi delle due regole concate¬ 
nando (di qui il nome del procedi¬ 
mento) la seconda alla prima (figura 
5). 

Riassumendo: il motore d’infe¬ 
renza costruisce un albero rovescia¬ 
to per ogni soluzione possibile, 
unendo le regole della base di cono¬ 
scenze; percorre i rami fino a giun¬ 
gere a nodi non ulteriormente 
espandibili; attraverso il sottopro¬ 
gramma apposito si accerta della ve¬ 
rità dei fatti corrispondenti a tali 
nodi e se per uno degli alberi risulta¬ 
no tutti veri, risale all’azione che ha 
generato l’albero indicandola come 
attuabile. 



Può darsi vi siano situazioni che non 
soddisfino le condizioni di nessuno 
degli stessi alberi. 

Dopo essere stato stampato il mes¬ 
saggio di insuccesso interviene, se 
presente, l'apprendimento automa¬ 
tico. 

In caso contrario toccherà a noi in¬ 
serire nuove regole, che comprenda¬ 
no anche questa eventualità. 
L’ordine in cui vengono immesse le 
regole non ha infatti alcuna impor¬ 
tanza: è quindi possibile un’espan¬ 
sione modulare del sistema. 

Si può cioè scrivere un primo set di 
regole generali e, dopo averne pro¬ 
vato l’andamento, aggiungerne del¬ 


le nuove che rendano più preciso il 
programma. 


Uno per tutti: PROSPECTOR 

Questo programma è stato realiz¬ 
zato dagli informatici californiani 
dello Stanford Research Institute, 
con l’ausilio di un gruppo di esperti 
minerari. 

Il suo compito è di determinare l’e¬ 
ventuale presenza di giacimenti, in 
base alle valutazioni dei campioni 
ottenuti da trivellazioni di prova. 
Dopo che gli esperti ebbero steso il 
sistema di regole, la loro potenziali- 


Figura 4. Questa è una 
struttura ad albero 
rovescialo, che si utilizza 
solitamente per 
rappresentare i problemi in 
cui. data una situazione 
iniziale (nodo superiore), va 
scelta la migliore azione 
tra le possibili (i vari rami 
dell'albero). 

l.a soluzione si può trovare 
percorrendo tutti i rami e 
confrontandoli tra loro, 
ottenendo il più profìcuo. 


Figura 5. Le regole si 
possono vedere come dei 
piccoli alberi rovesciati, in 
cui il nodo superiore 
rappresenta una delle 
azioni e quelli inferiori le 
condizioni per considerarla 
valida per la soluzione. 
Quando delle regole 
vengono scritte per 
specificare le condizioni di 
altre, il programma unisce 
i vari alberi in strutture più 
complesse. 
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tà fu testata, facendo operare l'E.S. 
sui dati di terreni in cui successiva¬ 
mente erano stati ritrovati dei depo¬ 
siti interessanti e su altri in cui le 
ricerche avevano avuto esiti negati¬ 
vi. 

I buoni risultati ottenuti (un errore 
medio del 7%) hanno promosso 
Prospector all’analisi di estensioni 
dove le perforazioni non erano state 
ultimate. 

Il sistema ha indicato come pro¬ 
babile sito di un giacimento di mo¬ 
libdeno (il materiale da ricercare) 
una zona che gli esperti non ritene¬ 
vano fruttifera. 

Successivi controlli hanno però di¬ 
mostrato che il programma non si 
sbagliava. 

Prospector si basa su una serie di 
moduli interagenti: 

• Excutive esegue l’input dei primi 
dati; 

• English Analyzer trasforma le fra¬ 
si da linguaggio naturale ad uno più 
manovrabile dalla macchina; 

• Matcher confronta i dati con la 
rete logica delle regole; 

• Propagator adatta i modelli geolo¬ 
gici ideali memorizzati con i dati ot¬ 
tenuti in input; 

• Question System pone domande 
per completare le informazioni in¬ 
sufficienti; 

• Explanation System c responsabi¬ 
le dell’interazione con l’utente; 

• Model Acquisition System serve 
per definire le regole; 

• Network Creator crea la rete di 
inferenze (gli alberi). 

Prospector utilizza anche le capacità 
grafiche dei calcolatori: come risul¬ 
tati delle elaborazioni emette delle 
mappe in cui sono indicate, median¬ 
te diverse tonalità di colore, le pro¬ 
babilità di presenza dei minerali. 


Uso degli E.S. 

Pur potendo essere adottata per 
tutti i problemi, la tecnica impiegata 
negli E.S. si è concentrata nelle uti¬ 
lizzazioni tese a simulare un consu¬ 
lente. 



Ciò è dovuto soprattutto alla note¬ 
vole domanda di prestazioni consu- 
lenziali e al loro notevole costo. 

Il loro potenziale utilizzo in questo 
senso è enorme: in ogni settore che 
richieda una notevole specializza¬ 
zione è possibile usare questo soft¬ 
ware. 

La possibilità di un facile controllo 
delle operazioni consigliate li rende 
adatti anche in quei campi in cui le 
decisioni comportano un alto ri¬ 
schio. 

Non fidandosi delle macchine si 
può sempre pensare di affiancarli a 
specialisti, per scongiurare i sempre 
possibili errori umani e per avere la 
certezza che tutte le alternative sia¬ 
no state vagliate. 

Un altro campo in cui gli E.S. po¬ 
trebbero rivelarsi fruttuosamente 
utilizzabili è l’insegnamento. 
Mostrare i ragionamenti seguiti do¬ 
vrebbe essere una delle principali 
funzioni dei docenti e, come oramai 
è evidente a tutti, gli E.S. sono pre¬ 
parati appositamente per svolgere 
tale compito. 

Naturalmente, sarebbero necessarie 
alcune modifiche per renderli vera¬ 
mente operanti in questo senso: co¬ 
me dimostra GUI DON, i cambia¬ 
menti necessari non sono poi molti. 
Guidon è una versione di MYCIN. 
un programma che riconosce le infe¬ 
zioni del sartgue e ne suggerisce la 



cura, che viene utilizzato per istruire 
gli studenti di medicina della Stan¬ 
ford University. 

Ulteriori considerazioni 

Gli E.S. possiedono molti accor¬ 
gimenti per essere utilizzabili anche 
dai non informatici. 

Uno dei loro scopi è infatti quello di 
eliminare l’intermediario principa¬ 
le, il programmatore, tra l’utente e 
la macchina. 

Appositamente, a tale fine, si è in¬ 
trodotta la possibilità di usare il lin¬ 
guaggio naturale, sia nei dialoghi 
che nelle regole, e si è separata la 
conoscenza dal programma. 

Però gli utenti non trovano imme¬ 
diato il trasformare le loro nozioni 
in un insieme di regole. 

E pertanto necessaria la mediazione 
dei knowledge engineers. 

Costoro conoscono i principi di fun¬ 
zionamento degli E.S. e sono in gra¬ 
do di aiutare gli utenti nel compito 
suddetto. 

Sono tuttavia allo studio dei pro¬ 
grammi per eliminare questa neces¬ 
sità. 

Sempre mediante il dialogo, l’u¬ 
tente dovrebbe chiedere al profes¬ 
sionista di illustrare alcuni esempi, 
riuscendo con successive chiarifica¬ 
zioni a determinare un primo set di 
regole, che poi verrebbe affinato fi¬ 
no a ottenere risposte simili a quelle 
che avrebbe dato l’esperto. 

Cosa leggere 

Per questo articolo mi sono basa¬ 
to su quanto è apparso su Bit e su 
altre riviste non specializzate in in¬ 
formatica. 

Non esiste, su questo specifico argo¬ 
mento, alcun libro di carattere gene¬ 
rale. 

Esiste però una raccolta di articoli 
che si chiama: “Expert System in thè 
Microelectronic age” D. Michie, 
1979 Edimburgh Univ. Press. 

Nella prossima puntata verrà pub¬ 
blicato il listato di un piccolo E.S. 
funzionante su ZX Spectrum. ■ 
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Gioco di strategia 
per Commodore 64 


di Luca Baumer 

N el n. 16 di Personal Softwa¬ 
re venne pubblicato l’arti¬ 
colo di Bruno del Medico 
Giochi africani per Spectrum, in cui 
veniva presentato un programma a 
struttura “modulare” per quattro 
giochi di strategia di simili imposta¬ 
zioni e regole. 

Abbandonata l’idea iniziale di una 
semplice conversione del program¬ 
ma, si è scelto di riscriverlo comple¬ 
tamente ex novo, limitandolo ad un 
gioco solo, ma migliorando la stra¬ 
tegia del computer, facendogli scen¬ 
dere un gradino in più lungo Inalbe¬ 
ro” delle decisioni. Il gioco scelto è 


l’Awele, l’unico dei quattro a non 
richiedere parecchi giri della scac¬ 
chiera ad ogni mossa, e quindi ela¬ 
borabile più rapidamente dal calco¬ 
latore (nonché menoemicraniogeno 
per il suo avversario). Viene mante¬ 
nuta la scelta se giocare contro il 
computer o fra due giocatori. 

Struttura del programma 

Dopo le necessarie inizializzazio- 
ni e dimensionamenti di vettori, il 
programma mostra sul video le sem¬ 
plicissime regole del gioco e chiede 
se i giocatori sono uno o due. Se il 
computer deve svolgere un ruolo at¬ 
tivo, il flag P viene messo a 1. 
Quindi viene disegnata la scacchie¬ 
ra: si nota subito che la presentazio¬ 
ne grafica del gioco è ridotta all’es¬ 
senziale; questo per mantenere il 
programma in una lunghezza mini¬ 
ma, in modo da poterlo trasferire, 


pressoché immutato, anche su siste¬ 
mi con meno memoria, compreso il 
VIC inespanso. 

Nella linea 500 inizia la routine di 
gioco: viene accettata da tastiera la 
mossa del giocatore, viene chiamata 
la routine che ne accerta la regolari¬ 
tà, ed in tal caso la esegue, quindi 
quelle per il calcolo dei punti guada¬ 
gnati e l’aggiornamento dei punteg¬ 
gi e della sequenza delle mosse sul 
video. Questa parte finisce alla riga 
600 e, se il computer non sta giocan¬ 
do, è il corpo principale del pro¬ 
gramma, che viene continuamente 
ripetuto fino a che una delle due 
routine che controllano le condizio¬ 
ni di vittoria (la 1500 e la 1700, an- 
ch’esse chiamate qui) non passa il 
controllo ed il nome del vincitore 
(parametro V) alla routine di fine 
gioco. 

Per capire invece il modo in cui il 
calcolatore elabora la propria stra- 


Listato 1. Il programma Awelc. 


50 REM ========== A W E L E ========== 

60 REM = = = = = DA UN'IDEA SU PS # 1 6 = = = = = 
70 REM ================================= 

75 REM ====== PROGRAMMA PER CBM 64 ===== 

80 REM ========= DI LUCA BAUMER ======== 


100 POKE53281 , 1 :POKE532 80,2 :DIMD(3) ,SC(3) 
, PB(6,6) ,D$(12) 

110 D(1)=-1 :D(2)=1 :SC(1)=1239:SC(2)=1425: 
SC (0)=49200:SC(3)=4921 2:D(0)=1:D(3)=1 
120 PE=0:A=0:M=0: Mi=0:M2=0:M3=0:M4 = 0:M5 = 0 
:PU(1)=0 :PU(2)=0 :M$(1):M$(2)="" 

130 G$="[<1RVS>] A W E L E [<1RVS OFF 
> 1 " 

140 PRINT"[<1CLR>] [<1CRSR D>] [<1 BLU>]"TAB 
(13)G$ 

142 PRINT"[<1CRSR D>]DEVI INDICARE UNA CA 
SELLA, RACCOGLIERNE IL CONTENUTO E DISTRI 
BUIRLO IN 

143 PRINT"SENSO ANTIORARIOPRINT"[<1CRS 
R D>]SE L'ULTIMO CADE IN UNA CASELLA CHE 
NE 

144 PRINT"CONTENEVA [<1RVS>]GIA’ PRIMA[< 

1RVS OFF>] 102, CATTURI IL CONTENUTO D 

ELLA CASELLA PIU'"; 


145 PRINT" QUELLO DI TUTTE LE CASELLE [< 
1RVS>]ADIACENTI[<1RVS OFF>] CHE [<1RVS 

>] ADESSO [<1RVS OFF>]" 

146 PRINT"CONTENGONO 2 OPPURE 3" 

147 PRINT"[ClCRSR D>]SE UNA CASELLA CONTI 
ENE GIÀ' 9, UN EVEN-TUALE 10[<1CHR$(190)> 
] SARA' CATTURATO 

148 PRINT"DALL' AWERSA-RIO DI CHI STA MU 
OVENDO." 

160 PRINT"[<3CRSR D>] ORA SCEGLIPRINT" 
[ClCRSR D>] 1 = SFIDA FRA DUE UMANI" 

170 PRINT"[ClCRSR D>] 2 = IL TUO CERVELLO 
CONTRO IL MIO" 

180 GETP$:P=VAL(P$):IFPC1ORP>2THENl80 
190 P=P-1 

210 P$ ( 1 )="PL. 1":P$(2)="PL. 2":IFPTHENPS 
(1)="C.B.M.":P$(2)="PLAYER" 

240 D$(0)="[ClHOME>] [ClCRSR D>]": FORI = 1TO 
12:D$ (I)=D$(I-1)+"[C2CRSR D>]":CL$=CL$+" 

":NEXT 

300 PRINT"[C1CLR>]"TAB(14)G$ 

310 PRINT"[C2CRSR D>][C2CRSR R>][ClRED>] 

6 5 4 3 2 1 " 

320 PRINT"[C2CRSR R>][C1CHR$(176)>][C1CHR 
$ (195)>] [C1CHR$(178)>] [ClCHRS(195)>] [ClCH 
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Seguito listato Awe/e. 

R$ (1 78) >][<1CHR$(195)>)[<1CHR$(178)>][<1C 
HR$(195)>][<1CHR$()78)>][<1CHR$(195)>][<1 
CHR$(178)>] [<1CHR$(195)>J 330 PRINT[<1CHR$ 
(174)>]"[< 2CRSR R>] [<1CHR$(221)>]4[<1CHR$ 
(221 )>)4[<1CHR$(221)>]4[<1CHR$(221)>]4[<1 
CHR$(221)>]4[<1CHR$(221 )>]4 
340 PRINT[<1CHR$(221)>]"(< 2CRSR R>][<1CHR 
$(173)>][<1CHR$(195)>][<1CHR$(177)>][<1CH 
R$(195)>] (<1CHR$(177)>] (<1CHR$(195)>] [<1C 
HR$(177)>)[<1CHR$(195)>][<1CHR$(177)>][<1 
CHR$(195)>] (<1CHR$(177)> J (<1CHR$(195)>]35 
0 PRINT (< 1 CHR$ ( 1 89) >)'•'[< 1 GRN>] [< 2CRSR D>] 

[< 2CRSR R>] [<1CHR$(176)>] (<1CHR$(195)>] [< 
1CHR$(178)>][<1CHR$(195)>][<1CHR$(178)>][ 
<1CHR$(195)>][<1CHR$(178)>][<1CHR$(195)>] 
I<1CHR$(178)>][<1CHR$(195)>][<1CHR$(178)> 
][<1CHR$(195)>]360 PRINTI<1CHR$(174)>]"[< 
2CRSR R>)[<1CHR$(221)>]4(<1CHR$(221)>]4[< 
1CHR$(221)>]4[<1CHR$(221)>]4(<1CHR$(221)> 
J 4[<1CHR$(221)>]4 

370 PRINT[<1CHR$(221)>)"(<2CRSR R>][<1CHR 
$(173)>][<1CHR$(195)>](<1CHR$(177)>)[<1CH 
R$ ( 195)>] [<1CHR$(177)>) [<1CHR$(195)>] [<1C 
HR$(177)>][<1CHR$(195)>)(<1CHR$(177)>)[<1 
CHR$(195)>][<1CHR$(177)>](<1CHR$(195)>]38 
0 PRINT[<1CHR$(189)>]"[< 2CRSR R>] 1 2 3 4 


tegia bisogna premettere che le mos¬ 
se non vengano simulate, ma esegui¬ 
te realmente. In breve: in un'altra 
zona di memoria (la solita area 
RAM, sopra 49000) il computer ha 
una sua personale scacchiera, una 
copia di quella vera, su cui sposta 
freneticamente le sue pedine, conta i 
punti fatti, quindi sposta quelle del¬ 
l’avversario, conta i punti guada¬ 
gnati da questi e, se il risultato non è 
soddisfacente, dà un’occhiata alla 
scacchiera vera, ricopia la situazio¬ 
ne di partenza c ricomincia da capo 
a cercare una mossa migliore. Per 
questo non esiste un vettore di varia¬ 
bili su cui il computer fa i conti, ma 
solo una specie di pagina grafica na¬ 
scosta, il cui contenuto viene modi¬ 
ficato tramite POKE. La causa di 
ciò c che il programma è nato con la 
precisa intenzione di far sì che le 
stesse subroutine clic eseguono la 
mossa del giocatore potessero venir 


5 

6(<1BLU> ]" 



490 

T=2:Tl=T 



499 

REM ******** ESEGUE MOSSE GIOCATORE * 

******* 



500 

GOSUB 1400:GOSUB 900:GOSUB 1700 


51 0 

GET M$:M=VAL(M$):IF M <1 OR 

M >6 

THEN 

51 0 



520 

PRINT D$(7) CL$:M6=M 



530 

GOSUB 1 000 :IF ER THEN GOSUB 

1 600 

: GOTO 

500 



540 

GOSUB 2000 



550 

GOSUB 1 4 00 :GOSUB 1500 



599 

REM ******* RICERCA MOSSA CALCOLATORE 

****** 



600 

Ti=3-Tl:T=Tl:IF P=0 THEN 500 



61 0 

GOSUB 900 :GOSUB 1 700:M3 = 0:M4 

= 0 :FOR M5 

= 2 TO 12 STEP 2 : Mi=-M5 



620 

Tl =1 :M2 = PEEK(SC(Tl)+M1) 



630 

IF M2=32 THEN PB(M5/2,M3)= - 

99:GOTO 6 

80 




640 

GOSUB 4000 



650 

T=0:Tl=0:M=M5:PU(0)=0:PU(3)= 

0 


660 

GOSUB 1010:GOSUB 2000 



670 

PB(M5/2,M3)=PU(0)-PU(3) 



680 

NEXT M5 



690 

GOSUB 5000 



700 

M=M4:M6=M:T=1:T1=1 :GOSUB 1000 



to “flip-flop”: esse possono cioè as¬ 
sumere solo l’uno o l’altro di due 
possibili valori, generalmente interi. 
La loro utilità viene dal modo parti¬ 
colarmente semplice in cui possono 
essere variate: ad esempio, se la va¬ 
riabile T può valere solo 1 oppure 2. 
per cambiarne il valore basta usare 
l’istruzione T = 3-T (3 è la somma 
dei due valori possibili), che sostitui¬ 
sce la più lunga e scomoda sequenza 
T=T+I : IF T=3 THEN T=l. 

TI indica il giocatore clic sta muo¬ 
vendo e T la fila in cui si trova la 
casella attualmente esaminata. Per¬ 
ciò la combinazione T=2 e TI = 1 
indica che il giocatore I (il compu¬ 
ter) è arrivato a piazzare una sua 
pedina nella fila inferiore (dell'av¬ 
versario) e cosi via. Le stesse varia¬ 
bili i ndicano anche se gl i sposta men¬ 
ti di pedine devono avvenire sulla 
scacchiera reale o in quella fittizia: 
in quest’ultimo caso i valori possibi- 


usate anche dal computer, sia per 
l’esecuzione reale della mossa scelta 
che per i calcoli che determinano la 
scelta. 

La conseguenza è invece la parti¬ 
colare struttura del programma, che 
a prima vista sembra aderire fedel¬ 
mente ai sacri canoni, con un breve 
blocco principale che chiama una 
serie di procedure, ma in realtà ha 
un flow-chart che è un intrico di 
linee, poiché le subroutine si richia¬ 
mano continuamente l’un l’altra. 
(C'è perfino il caso di una subrouti¬ 
ne A che chiama una sub-sub B la 
quale, prima del RETURN, richia¬ 
ma un'altra volta la A..., il che po¬ 
trebbe far inorridire anche il più tie¬ 
pido sostenitore della programma¬ 
zione strutturata). 

Avendo in mente questo schema, è 
facile seguire il listato, conoscendo il 
significato delle variabili T e TI. 
Queste sono del tipo a volte chiama¬ 
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li sono 0 e 3 (quindi: Tl=0 indica 
mossa simulata del computer, T=0 
indica la mossa nella fila superiore 
della “finta” scacchiera e il contra¬ 
rio per i valori 3). Notare che anche 
così il totale dei valori possibili è 
sempre 3, in modo che le stesse in- 
struzioni invertono lo stato delle va¬ 
riabili, sia in fase di gioco che di 
simulazione. 

Come per i due set di caratteri 
(maiuscolo/minuscolo) dei Com¬ 
modore, le due coppie di valori non 
sono accessibili contemporanea¬ 
mente: se TI vale 0 (oppure 3), T 
può a sua volta valere solo 0 o 3. 
Una qualsiasi diversa combinazione 
può aver significato solo sesta avve¬ 
nendo la transizione dalla fase di 
gioco a quella di simulazione, come 
per l'appunto avviene nella subrou¬ 
tine 4000, che effettua il trasferimen¬ 
to dei dati dalla scacchiera reale a 
quella fittizia. 


Strategia del computer 

Siamo ora in grado di interpretare 
rapidamente il listato: per il signifi¬ 
cato delle variabili che iniziano con 
M tenere d’occhio la tabella delle 
variabili principali. 

Per brevità, considereremo le cinque 
principali subroutine (1000, 2000, 
4000, 5000. 6000) come delle ma¬ 
croistruzioni BASIC e le chiamere¬ 
mo rispettivamente MUOVI, PUN¬ 
TI, COPIA. MAXPUNTI e RISPO¬ 
STA. 

La linea 600 passa il gioco dal gioca¬ 
tore al calcolatore (o all’altro gioca¬ 
tore), invertendo TI; poi viene scrit¬ 
to “Tocca a...” e si verifica (SUB 
1700). se il giocatore di turno ha 
effettivamente ancora qualcosa da 
muovere; quindi inizia il ciclo che 
esamina le 6 mosse possibili. (NO¬ 
TA: tutti i cicli di lettura/scrittura 
sono STLP 2, per l’ovvia necessità di 
escludere le colonnine che separano 
le caselle dalle istruzioni PEEK/PO- 
KE). 

Se (630) la casella è vuota, passa 
subito alla successiva e prende nota 
che la mossa è impossibile; in caso 


USTA VARIABILI PRINCIPALI 

T Linea in cui si trova la casella considerata. 

TI Giocatore di turno. 

M Mossa attualmente in esecuzione (reale o simulata). 

M5 Contatore del ciclo principale mosse calcolatore. 

MI =-M5. Indicizza l’inizio della linea di caselle per trovare quella di parten¬ 
za. 

M2 Mossa di partenza contenuta nella casella identificata da MI. 

M4 Mossa che dà il maggior punteggio. 

M6 Ultima mossa eseguita realmente. Viene trasformata in stringa per co¬ 
struire la sequenza delle mosse. 

M3 Contatore del ciclo delle risposte del giocatore. Indicizza la seconda 
dimensione della matrice PB. 

M7 Determina l’uscita da RISPOSTA. Inizializzata a 0 alla chiamata va 
considerata come una parola di sei bit, ognuno dei quali è un flag, che 
indica che la mossa corrispondente è stata esaminata. L'uscita avviene 
quando una mossa viene esaminata per la seconda volta, consecutivamen¬ 
te o no. 

I Contatore per alcuni cicli, è anche l’indice della casella esaminata durante 
PUNTI. 

PE Locazione in cui sta per fare una PF.EK o una POKE. La sua dichiarazione 
all’inizio del programma accelera di oltre un secondo ogni risposta del 
computer. 


VETTORI E MATRICI PRINCIPALI 

SC'(3) Sono gli indirizzi di inizio delle quattro linee di caselle, aumentati o 
diminuiti di 2 (si vedano le note per VIC). 

PU(3) PU( I) e PIJ(2) sono i punteggi totali ilei due giocatori; PU(0) e PU(3) 
sono i punteggi ottenuti in una singola mossa. 

PB(6,6) PB(.I.O) è il guadagno minimo di punti ottenibili dal computer, se 
effettua la mossa in casella .1, considerando la miglior risposta dell'av¬ 
versa rio. Se vale —99, la casella J è già vuota. PB (J,K),con J e K fra I e 
6, sono i punti ottenuti dal giocatore se, alla mossa J del calcolatore, 
rispondesse muovendo da K. 

PB (0.K), con K qualsiasi, non viene usato. 


contrario, COPIA passa alla simu¬ 
lazione. MUOVI prende nota del 
punteggio ottenuto e PUNTI ripete 
il ciclo. Alla fine del ciclo (680) la 
routine MAXPUNTI fornisce la 
mossa migliore (700); si torna alla 
scacchiera reale e dopo aver control¬ 
lato se si ha vinto (bisogna aver rag¬ 
giunto i 26 punti su 48 disponibili) 
(SUB 1500) ritorna la mano all’av¬ 
versario. 

MUOVI. Riceve in entrata dalla li¬ 
nea chiamante il parametro M; pas¬ 
sa il parametro I alla PUNTI, sem¬ 
pre chiamata dopo di essa. 

I è il punto d’arrivo della mossa ese¬ 
guita, cioè la casella in cui è stata 


deposta l'ultima pedina. 

Se M è il numero da I a 6 che 
indica la casella, il punto d’entrata è 
1000. Se (1020) la casella è vuota, 
viene attivato il (lag di errore (ER)e 
RETURN. (NOTA: il RETURN col 
llag ER settato e TI = 2 vuol dire 
clic il giocatore ha cercato di muove¬ 
re da una casella vuota e rimanda 
alla routine d’errore; in caso contra¬ 
rio viene annotato che la mossa è 
impossibile). 

Se la mossa è lecita, le pedine vengo¬ 
no tolte dalla casella, il loro numero 
è messo in A e inizia la distribuzione 
(1045). La linea 1050 controlla il 
passaggio da una fila di caselle al- 
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pone il maggiore in MX e la mossa 
che lo fornisce in M4. Se (5040) nes¬ 
suna mossa dà punti, muove a caso 
in una casella non vuota. Il fatto che 
il calcolatore effettui a volte mosse 
casuali può sembrare un difetto, ma 
in realtà serve ad evitare la ripetizio¬ 
ne di partite uguali. Infatti si sareb¬ 
be facilmente potuta fornire una la¬ 


go di MX. La 6080calcola l'effettivo 
guadagno della mossa fin qui consi¬ 
derata migliore, che è la differenza 
fra i punti conquistati ed il massimo 
ottenibile dalPavversario, e modifi¬ 
ca di conseguenza MX. Quindi tor¬ 
na a MAXPUNTI: se la mossa con¬ 
siderata prima migliore viene con¬ 
fermata, essa verrà usata, altrimenti 


l’altra (inversione di T); la 1060 dà 
corso, se necessario, alla regola del 
9, aumentando il punteggio dell’av¬ 
versario ( PLJ(3-T 1 )). 

PUNTI. Riceve da MUOVI il para¬ 
metro I e passa in uscita PU(TI), 
cioè il totale del punteggio prece¬ 
dente e di quello ottenuto con la 
nuova mossa; in caso di simulazione 
il “punteggio precedente” PU(0) o 
PU(3) viene sempre azzerato prima 
di chiamare PUN I I. 

Se (2010) nella casella d’arrivo è ve¬ 
rificata la condizione di cattura (2 o 
3 pedine), si salva I in 11 esi control¬ 
lano le caselle adiacenti, prima in 
avanti e poi (2070) all’indietro, fino 
a quando la condizione di cattura 
resta verificata. Le linee 2020, 2050, 
2100 incrementano il punteggio c 
vuotano le caselle il cui contenuto è 
stato catturato. 

COPIA. Non riceve né passa para¬ 
metri. Ricostruisce nella scacchiera 
del calcolatore la situazione reale. 
Notare che potrebbe essere scritta 
più brevemente e che T e TI non 
hanno il significato usuale, in quan¬ 
to indicizzano entrambi file di casel¬ 
le; il loro uso e la struttura della 
routine sono dettati solo da ragioni 
di velocità di elaborazione. 
MAXPUNTI. Riceve, se chiamata da 
RISPOSTA, il parametro M3 che 
usa come flag di ritorno. Restituisce 
M4 e MX alla routine chiamante. 
Esamina i punteggi ottenuti da tutte 
le sei possibili mosse del computer. 


bella che facesse scegliere la mossa 
in base a posizione e contenuto delle 
caselle, ma ciò avrebbe causato la 
generazione di sequenze di mosse 
identicamente ripetibili, per cui. 
battuto il computer una volta, sarà 
sempre possibile vincere ripetendo 
la stessa sequenza. 

La linea 5050 chiama RISPOSTA 
sotto la condizione che il punteggio 
del computer sia inferiore a quello 
dell’avversario: come dire clic si 
mette a giocare sul serio solo quan¬ 
do è in difficoltà... 

RISPOSTA. Riceve M4 da MAX- 
PUNTI e gli ritorna MX eventual¬ 
mente modificato; inizializza T e TI 
per le chiamate a MUOVI e PUN TI. 
Per prima cosa la subroutine avvisa 
di essere entrata in fase di approfon¬ 
dimento, chiedendo tempo extra; 
quindi inizia un ciclo, sulle sei possi¬ 
bili mosse di risposta del giocatore, 
cosi costituito: COPIA; MUOVI (da 
M4); PUNTI; MUOVI per l’avver¬ 
sario; PUNTI da lui guadagnati; 
completa il ciclo. La 6070è l’equiva¬ 
lente di MAXPUNTI sui punteggi 
dell’avversario, in cui XM è Panato¬ 


si ripete RISPOSTA basandosi sulla 
nuova miglior mossa possibile. Le 
ripetizioni continuano fino a che 
una non viene confermata, oppure 
non ha ripetuto l’esame di una mos¬ 
sa già scartata, che in tal caso viene 
accettata, in quanto è quella che 
maggiormente limita il danno. In 
pratica, al momento del RETURN 
da RISPOSTA viene fissato come 
mossa da eseguire l’attuale valore di 
M4. 

Velocità e abilità 

In un programma chiarezza, velo¬ 
cità ed occupazione di memoria 
spesso competono; qui la prima ha 
chiaramente dovuto cedere qualco¬ 
sa alle ultime. La lunghezza del lista¬ 
to è però compatibile anche con un 
VIC inespanso e la velocità soddisfa 
la condizione necessaria perché un 
gioco di strategia non sia noioso: 
che il computer, cioè, resti a pensare 
per un tempo mediamente inferiore 
o uguale a quello dell’avversa rio. In 
pratica, la decisione al primo livello 
viene presa in meno di dieci secondi 


Seguilo Usuilo Awe/e. 

710 GOSUB 2000 

720 GOSUB 1500:T1=2:T=2 

730 FOR 1 = 0 TO 6 :FOR J=0 TO 6 :PB(I,J)=0 :N 
EXT :NEXT: GOTO 500 

900 PRINT D$(7) CL$ D$(7) "TOCCA AL " P$ ( 
Tl) " MUOVERE":RETURN 

999 REM *********** ESECUZIONE MOSSE **** 
* ***** * 

1 000 M=M* 2*D(T) 

1010 PE=SC(T)+M:A=PEEK(PE) 

1020 IF A=32 OR A=48 THEN ER=1:RETURN 
1 030 A=(A-48)*2 :POKE PE,32 
1040 I=M+2*D(T) 

1045 FOR J=2 TO A STEP2 

1050 IF ABS(I)>12 THEN T=3-T:1=1+16*D(T): 


IF T=0 OR T=3 THEN 1=2 

1060 PE=SC(T)+1 :IF PEEK(PE)=57 THEN PU(3- 
Tl)=PU(3-Tl)+1 : GOTO 1080 

1 070 POKE PE,PEEK(PE)+1 - 16*(PEEK(PE)=32) 
1080 I=I+2*D(T) 

1090 NEXT:RETURN 

1399 REM ********** AGGIORNA PUNTEGGIO ** 
******** 

1400 PRINT D$(2) TAB(18) "PUNTEGGIO " P$( 
D PU(1) 

1410 PRINT D$(4) TAB(18) "[ClCRSR D>]PUNT 
EGGIO " P$(2) PU(2) 

1420 FOR V=1T02:IF PU(V) >25 THEN9000 
1430 NEXT:RETURN 

1499 REM ******** AGGIORNA ELENCHI MOSSE 
******** 

1500 M$ (Tl)=M$(Tl)+ RIGHT$ (STR$(M6),1)+" 
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_ il 

1510 PRINT D$(8) "MOSSE " P$ ( 1) ": " M$(1 

) 

1520 PRINT D$(9) "MOSSE " P$(2) ": " M$(2) 
1530 RETURN 

1599 REM *********** ROUTINE D'ERRORE *** 
******** 

1600 PRINT D$(10) " [<1RVS>] ERRORE! [<1 
RVS OFF>] LA CASELLA E' GIÀ' VUOTA" 

1610 FOR W=0 TO 2000:NEXT 

1620 PRINT D$(10) CL$:ER=0:RETURN 

1698 REM *** FINE PARTITA PER IMPOSSIBILI 
TA' * * * * 

1699 REM *** DI UN GIOCATORE A MUOVERE 
* ★ ★ * 

1700 FOR J=2 TO 12 STEP 2:IF PEEK(SC(Tl)+ 
J*D (Tl ) ) 032 THEN J = 14:RETURN 

1710 NEXT 

1720 V=1:IF PU(2) >PU(1) THEN V=2 
1730 GOT09000 

1999 REM ********** VALUTAZIONE PUNTI *** 
******** 

2000 I=I-2*D(T):S=PEEK(SC(T)+1)-48:11=1 
2010 IF S <2 OR S >3 THEN 2130 

2020 PU(Tl)=PU(Tl)+S:POKE SC(T)+I,32 
2030 1=1+2:S=PEEK(SC(T)+1)-48 
2040 IF S <2 OR S >3 OR (I >12 AND T=0) T 
HEN 2070 

2050 PU(Tl)=PU(Tl)+S:POKE SC(T)+I,32 
2060 GOTO 2030 
2070 1=11 

2080 1 = 1-2 :S = PEEK(SC(T)+1)-4 8 

2090 IF S <2 OR S >3 OR (I <2 AND T=3) TH 

EN 2130 

2100 PU(Tl)=PU(Tl)+S:POKE SC(T)+I,32 
2120 GOTO 2080 
2130 RETURN 

3999 REM ******* COPIA NEL FINTO SCHERMO 

4000 T=0:Tl=1:GOSUB 4200 
4020 T=3:Tl=2:GOSUB 4200 
4040 RETURN 


4200 FOR 1=2 TO 12 STEP 2:PE=SC(Tl)+I*D(T 
1) 

4210 POKE SC(T)+ 1,PEEK(PE)-16*(PEEK(PE)=3 
2 ) 

4230 NEXT:RETURN 

4999 REM ***** RICERCA MAX. PUNTI FATTIBI 
LI ***** 

5000 M4=0:MX=0 
5010 FOR J=1 TO 6 

5020 IF PB(J,0) >MX THEN MX=PB(J,0):M4=J 

5030 NEXT:IF M3 THEN RETURN 

5040 IF M4 = 0 THEN M4 = INT(RND(0)*6+1 ):IF P 

B(M4,0)= -99 THEN M4=0:GOTO 5040 

5050 IF PU(1) <PU(2) THEN M7=0:GOSUB 6000 

5060 RETURN 

5999 REM ****** ESAME 6 POSSIBILI RISPOST 
£ ****** 

6000 PRINT D$(7) "ANCORA UN MOMENTO: IL G 
ENIO PENSA" 

6010 FOR M3=l TO 6:GOSUB 4000:M=M4:T=0:Tl 
= 0 

6020 GOSUB 1000:GOSUB 2000:M=M3 

6030 PU(0)=0:PU(3)=0:T=3:Tl=3:GOSUB 1 000: 

IF ER THEN ER=0:GOTO 6060 

6040 GOSUB 2000 

6050 PB(M4,M3)=PU(3)-PU(0) 

6060 NEXT M3 

6070 XM=0:FOR J=1 TO 6:IF PB(M4,J) >XM TH 
EN XM=PB(M4,J) 

6080 NEXT 

6090 PB(M4,0)=PB(M4,0)-XM:M7=M7 OR 2~M4:M 
X=MX-XM 

6100 GOSUB 5010 :IF M7 AND 2~M4 THEN RETURN 
6110 GOTO 6010 

8999 REM ************* FINE PARTITA ***** 
******** 

9000 PRINT D$(11) " HA VINTO IL [<1RVS>] 
"P$(V)" [<1RVS OFF>] - GIOCHI ANCORA?" 

9010 GET R$:IF R$="S" THEN RUN 

9020 IF R$ <>"N" THEN 9010 

9030 PRINT"[<1CLR>]" D$(3) " O.K. - BYE! 

" : END 


e anche quando viene impegnata RI¬ 
SPOSTA questo tempo sale di rado 
sopra i venti. 

L’abilità certo non è da campio¬ 
nato: come inevitabile in un gioco 
esaminato solo fino al secondo livel¬ 
lo, ben difficilmente il computer po¬ 
trà vincere, se il giocatore non com¬ 
mette almeno una piccola svista; ciò 
però accade abbastanza spesso, tan¬ 
to da mantenere un certo interesse 
nel gioco anche dopo parecchie par¬ 
tite. In particolare il computer tende 
a giocare sulla difensiva e a sacrifi¬ 
care troppi punti alla regola del no¬ 
ve per non dare all’avversario un’oc¬ 
casione ... che deve comunque rega¬ 


largli alla mossa successiva. Certo 
non sarebbe impossibile aggiungere 
una routine CONTROMOSSA, 
strutturata come RISPOSTA e da 
questa chiamata (ma quanto dure¬ 
rebbe una partita?). C’è qualcuno 
che ci vuole provare? 


Modifiche 

Si può migliorare l’abilità del 
computer eliminando l’IF in linea 
5050 e facendolo quindi passare 
sempre da RISPOSTA; il guadagno 
non è eccezionale, ma si evitano le 
conseguenze nefaste che può avere 


una mossa casuale e sfortunata. 

La regola del nove è un’aggiunta 
eseguita qui alle regole del gioco; se 
un purista dell’Awele la ritenesse of¬ 
fensiva, la può togliere, ricordando 
però che la struttura del programma 
non ammette caselle che contenga¬ 
no numeri di due cifre e quindi do¬ 
vrà rassegnarsi a ridefinirsi una de¬ 
cina di caratteri o a veder comparire 
cose strane sullo schermo... (pensia¬ 
mo che questa aggiunta renda il gio¬ 
co, oltre che più veloce, anche più 
vario e quindi interessante; di certo 
ne altera totalmente la strategia). 
Provate semmai a modificarla ulte¬ 
riormente; basta sostituire i(3-Tl) in 
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linea 1060condei(Tl)odei(T)odei 
(3-T) e ricordate che il C 64 adegua 
istantaneamente la sua tattica a qua¬ 
lunque cambiamento del genere. 


Attenzione! Il programma non 
può assolutamente funzionare, se la 
scacchiera non è posta nell’esatta 
posizione. Chi pensasse di aver pro¬ 


blemi di questo genere, o volesse 
spostare la scacchiera, controlli pri¬ 
ma le note per la conversione sul 
VIC. ■ 



COMPATTAZIONE E CONVERSIONE - NOTE PER VICHINGHI 


Tradurre un programma dal VIC 20 al C 64 è sempre 
complicato; il procedimento inverso è spesso impossibile. 

I più grossi scogli sono lo schermo e la memoria disponibi¬ 
le; quest’ultimo è il più urgente, perché se un programma 
non può proprio essere ridotto entro i fatidici 3 Kbyte e 
mezzo, è inutile arzigogolare sugli indirizzi delle POKEfsi 
parla sempre di VIC versione base). 

II listato da solo, così come lo vedete, occupa circa 4 
Kbyte; in più ci vuole lo spazio per le variabili. Ma è presto 
per disperare: si sa che i sessantaquattristi tendono allo 
spreco. 

Cominciamo a tagliare il listato: le REM servono a capire 
il programma, ma non a farlo girare, e sono parecchie: via 
tutte e la memoria occupata scende a 3300 (non è detto che 
i valori dati siano esattissimi, ma di certo delle buone 
approssimazioni). Molto meglio, ma non basta. Le regole 
del gioco sono semplicissime, si imparano subito, quindi 
non è indispensabile che il computer le scriva: togliendo 
tutte quelle PRINT all’inizio si scende a quota 2860. È 
fatta!, dite voi. Date il RUN e vi trovate subito OUT OF 
MEMORY. Non di molto, ma out: quasi 3800, ora che le 
variabili hanno occupato il loro spazio. 

Si può rinunciare a uno dei pochissimi extra, per esempio 
la routine che scrive la sequenza delle mosse. Togliendola 
si arriva a 2750, ma non date il RUN perché è tempo perso: 
siamo ancora a 3630. 

Spero che a questo punto vi siate già posti la domanda: 
come è possibile che un programma che dichiara 12 varia¬ 
bili principali usi per esse 900 byte, quanto basta a farcene 
stare 130? 

La prima risposta è la matrice PB (6,6). Essa può vantag¬ 
giosamente essere sostituita da una PB%(6,6) di numeri 
j i interi, con un risparmio di 7x7x3 byte che, togliendo i vari 
' “%” da spargere per il listato, diventano circa 130. Così ci 

si sta dentro di misura, ma, per motivi che vedremo poi, 
abbiamo bisogno di recuperare un’altra trentina di byte. 
Ciò può essere fatto lavorando sul listato, per esempio 
fondendo insieme più linee, facendo attenzione che non 
siano coinvolte nei salti: si risparmiano 4 byte per ogni 
linea cancellata. Addirittura si può rinumerare il program¬ 
ma usando numeri di tre cifre anziché quattro: si risparmia 
1 byte per ogni GOTO o GOSUB rinumerato. Ma è un 
lavoraccio e il guadagno non vale la fatica. 

E meglio continuare a lavorare sulle variabili. 

Andiamo a vedere la linea 230. Questa sola linea, dall’ap¬ 
parenza innocua, è un mangiabyte di potenza terrificante. 
In essa vengono definite le 13 D$, ognuna due byte più 
lunga della precedente: totale, circa 200. Più dei tre quarti 
possono essere salvati sostituendole con due sole, definite 
senza ciclo FOR...NEXT, dichiarate esplicitamente: una 
Dl$ = “(HOME) (10 CRSR DOWN) e una D2$ = “(HO- 


ME)(16 CRSR DOWN)” che usate insieme a qualche 
(CRSR DOWN), aggiunto alla stringa da stampare, danno 
l’accesso a tutta la metà inferiore dello schermo. 

Ma soprattutto, nella stessa linea, c’è la CL$, che per 
arrivare ad essere lunga 36 spazi viene ridefinita 12 volte, 
occupando cosi, da sola, la bellezza di 234 byte! 
Anch’essa può venir dichiarata esplicitamente una volta 
per tutte (per il VIC basta che sia lunga 22 spazi), recupe¬ 
rando così altri 200 byte. 

Se poi qualcuno si chiedesse perché non è stato fatto 
direttamente così, dirò che in fase di scrittura del program¬ 
ma il metodo scelto, benché non molto economico né 
diffusissimo, consente un maggior controllo e facilità di 
variazioni: anche se metà delle D$ definite non verranno 
mai usate, il programmatore sa che sono lì a disposizione 
in qualunque momento volesse cambiare la composizione 
della videata. 

Con tutti i byte così salvati possiamo tranquillamente 
rimettere nel programma la subroutineelcnca-mosse, pro¬ 
babilmente qualche riga sulle regole e forse anche qualche 
breve REM. 

Risolto il problema memoria, passiamo allo schermo. Co¬ 
me si è detto, il programma è studiato in modo da essere 
completamente costruito sulle PEEK e POKE di schermo. 
Per una volta, però, ciò non significa doversi mettere le 
mani nei capelli, poiché tutte le POKE sono indicizzate sui 
quattro elementi del vettore SC(3): solo questi vanno rical¬ 
colati. 

Per prima cosa aggiungete in testa al programma una linea 
che abbassi il RAM-TOP di 28 byte. Il terzo byte della 
zona così protetta sarà SC(0); SC(3) vale SC(0)+12. 
(NOTA: la chiacchierata sul risparmio di memoria non 
riguarda chi ha espansioni di RAM per il suo VIC, ma 
quest’ultima parte sì, per cui non diamo indirizzi esatti, 
che variano a seconda della configurazione). 

Ora eseguite secondo il vostro gusto le semplici modifiche 
alle istruzioni PRINT che disegnano le caselle, per esempio 
posizionandole in alto al centro dello schermo, in modo da 
lasciare sotto lo spazio per la scritta “Tocca a...”, per i 
punteggi, l’elenco delle mosse e il messaggio d’errore. 
Qualunque altra disposizione va bene, purché prima e 
dopo ognuna delle due file di caselle ci siano almeno due 
spazi bianchi liberi da scritte e non vadano a finire in un 
angolo dello schermo. Una volta fissata la posizione, cal¬ 
colate l’indirizzo della casella 1 (quella a destra) della fila 
in alto e verificatelo con una POKE qualsiasi, in modo che 
il carattere appaia all’interno del quadratino. Aggiungete 
2 a questo indirizzo e avete trovato SC(1). Idem per la 
casella 1 (quella a sinistra, stavolta) della fila inferiore. 
Sottraete 2 all’indirizzo della casella e avete SC(2), e il 
gioco è fatto: tutto il resto è uguale. 
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Una utile raccolta 
di sottoprogrammi 


di Ivano Parbuono 

Q uante volte realizzando un 
nostro programma ci sia¬ 
mo trovati in difficoltà per 
creare un movimento, un certo tipo 
di grafica oppure un effetto partico¬ 
lare ed allora inevitabilmente abbia¬ 
mo iniziato a sfogliare libri, riviste, 
analizzare listati, leggere articoli 
con evidente perdita di tempo: tutto 
questo con la speranza di trovare 
una routine che faccia al caso no¬ 
stro, magari adattandola in modo 


da poter proseguire nella realizza¬ 
zione di ciò che ci si era prefissati. A 
volte purtroppo, oltre alla notevole 
perdita di tempo, può anche accade¬ 
re di non riuscire a trovare niente di 
tutto ciò allora si è costretti a rinun¬ 
ciare oppure ritardare notevolmente 
la risoluzione del problema. Ebbene 
da questa necessità, da molti credo 
riconosciuta, è nata in me l’idea di 
preparare un programma che rac¬ 
colga un insieme di diverse soluzioni 
(ripescate da vai altri programmi di 
varie Riviste) e in alcuni casi modifi¬ 
cate adattandole alla presente esi¬ 
genza. Queste routine possono esse¬ 
re più o meno idonee più o meno 
interessanti, ma certamente funzio¬ 
nali e abbastanza semplici anche per 
una eventuale consultazione. Il pro¬ 
gramma Routine di cui qui di segui¬ 


to è riportato il listato ha dunque la 
caratteristica (senza troppe pretese) 
di essere una raccolta abbastanza 
omogenea e di facile consultazione 
di molti miniprogrammi, a mio av¬ 
viso molto interessanti per chi vuole 
appunto esercitarsi a trasferire in 
pratica le proprie idee, tentando la 
programmazione BASIC. 

Alcuni tra i lettori riconosceran¬ 
no in questa raccolta delle routine 
già presenti nel contesto più genera¬ 
le di altri programmi ma, come dice¬ 
vo, queste routine sono da me state 
estratte ed assemblate per creare 
una raccolta di facile consultazione. 

Programma Routine 

Andiamo ora ad analizzare il pro¬ 
gramma e il listato in generale, dopo 


Listato 1. // programma BASIC. 


330 REM ROUTINE 
230 GO SUB 9O00 

235 BORDER 2: PRPER 7; INK 0 
24.0 REM scritta a carrello 
24-5 FLASH 1: LET fl$ = "OUESTO PRO 
GRRMMfi UUOLE ESSERE UNR PICCOLR 
RACCOLTA DI ROUTINE ED EFFETTI P 
RRT ICOLRR I Dfi INSERIRE NEI U05TR 
I PROGRAMMI BUON DIUER 

TIMENTO 
250 LET f=0 
255 FOR S = 1 TO LEN A* 

260 PRINT RT 10,(32-3 AND S<32) 
;fl$((5-31 OR S<32) TO Si: BEEP . 
005,4-5 

265 IF F = 1 RND S<32 THEN PRINT 
RT 10,0;A*(LEN flt-31+I TO LEN A$ 
): BEEP .005,45 
370 PRUSE 2 
275 NEXT S 

260 PRUSE 200: FLRSH © 

290 REM sipari in verticale 

300 FOR 5=21 TO 0 STEP -1 

310 INK 2: PRINT RT S rf " " 


320 NEXT 5 

340 PRINT RT 11,5;"IURNO 
UONO": PRUSE 5© 

35© FOR S =0 TO 21 


PRRB 


w|| 


•WMA 


360 FOR 5=21 TO 0 STEP -1 
390 INK 2: PRINT RT S,0;"■* 

■ ■ ■ ■ ■ ■ ■i ■ a a ■ ■■■■■■■*■■■«■* ■ •• 

400 PRUSE 10: NEXT S 
410 FOR S=0 TO 21 STEP 1 
420 INK 6: PRINT RT S,0i_ 


4S0 ■ PROSE ÌG NCXT- 3 
440 PRUSE 100: CLS 


450 REM scritta obliqua, con er 
retto sonoro 

500 FOR S=0 TO 21: PRINT TRB S+ 
2; INK (S/4); FLR5H 1;"PARBUONO" 
;- rL-RS; I - C NÉXT- 5 
510 FOR S=1 TO 60: BEEP .005,S: 
BEEP .006,-S: NEXT S 
520 INK 0 
530 PRUSE 200 

700 REM sovrapposizione di pann 
elli colorati 

750 BORDER 0 : 5£ PER DDT 

760 PRPER 2: FOR x=0 TO 13. PRI 
NT RT X,8;" : NEX 

T 770 PRUSE 50: PRPER 4: POKE 236 

9 7B0 6 FOR X =5 TO 19: PRIN T x « T *'* 

'790 PAUSE 50: PRPER 1: POKE 236 

^éà S FOR x=7 TO ai^Pggjff JT U X 

& soÌ 0 RéM C Vfe.pi.ento orizzontate 
810 BORDER 6: PRPER 4 , 

880 INPUT "PRPER ",P< * NK •> 1 
890 PRPER P: INK I 
900 FOR P=1 TO 320 
910 PRINT •=“; 

930 PRINT P RT 21,0;"VUOI ANCORA 

940*INPUT c*: IF C*<>-S- THEN G 
O TO 960 
950 GO TO 880 
960 PRUSE 200: CLS 
1000 REM creazione di pixel in 
funzione RND ^ 

1020 BORDER 3: PRPER 7: INK 0: L 
ET R=RND*124: LET B=RND*84 
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di che passeremo ad un’analisi più 
compieta e approfondita delle sin¬ 
gole routine. Una volta caricato il 
programma e dato il RUN, lo Spec¬ 
trum inizierà l’esecuzione mostran¬ 
do uno dopo l’altro, davanti ai no¬ 
stri occhi, gli effetti creati dalle sin¬ 
gole routine; alcune volte lo Spec¬ 
trum per poter proseguire nello 
svolgimento del programma vi chie¬ 
derà di dare dei comandi quali il 
colore oppure premere SPACE per 
proseguire alla routine successiva. 
Questa è l’unica cosa che dovremo 
fare per portare a termine lo svolgi¬ 
mento del programma. 

Sarà poi possibile ricorrere a uno 
di questi effetti quando se ne presen¬ 
terà la necessità, estraendo appunto 
solo quello che ci interessa. Detto 
ciò passeremo ora ad approfondire 


le varie righe del listato che compon¬ 
gono il programma. Cominceremo 
subito con il dire che ogni routine è 
in grado di funzionare da sola, al di 
fuori del programma principale. Al¬ 
cune routine, però, sono legate al 
programma principale dalla genera¬ 
zione dei caratteri grafici. Questo, in 
pratica, è l’unico legame esistente 
fra le varie routine. La linea 230, con 
la quale inizia il programma, ci ri¬ 
manda alla linea 9000 dove trovere¬ 
mo le creazioni dei caratteri grafici. 
Alla linea 240 inizia una routine che 
permette di fare apparire nello 
schermo le istruzioni in maniera 
scorrevole della lunghezza desidera¬ 
ta, con inserimento facoltativo, alla 
linea 265, di un BIP sonoro e un 
PAUSE 2 alla linea 270, (anche que¬ 
sto modificabile in base alle necessi¬ 


tà di velocità che si hanno nello scor¬ 
rimento delle istruzioni), per termi¬ 
nare poi alla linea 275 con la chiusu¬ 
ra del LOOP. La fine di ogni routine 
è evidenziata anche da un PAUSE 
200 che permette di apprezzare in 
maniera migliore ciò che si è appena 
visto. 

Dalla linea 300 alla linea 400 ci 
sono una serie di miniroutine chia¬ 
mate sipari in verticale, che effettua¬ 
no il riempimento dello schermo 
con dei caratteri grafici: potrebbero 
essere interessanti da inserire alla fi¬ 
ne di un programma per chiudere 
con un effetto sipario, oppure all’i¬ 
nizio con l’inserimento di un nome o 
una indicazione in modo di porla in 
risalto come esemplificato nella rou¬ 
tine che comanda il 2° sipario. 

La routine successiva cioè quella 


PLOT 

PLOT 125—P 


Seguito listato 1 

1030 PLOT 125-0,85—B: 

",T5sr-U 

104.0 PLOT 125+R,6S+B: 

, Q5+B 

1050 PRINT RT 0,0;"PREMI SPRCE P 
ER PROSEGUIRE" 

1065 IF INKEY $ = " " THEN GO TO 11 

00 

1070 GO TO 1020 

1100 REM riempimento RND di quad 

rati colorati 

1110 PRUSE 200: CLS 

1120 LET B=RND*14-: LET fl=RND*10: 
LET S=RND*7 

1130 PRINT RT 11—R,16-B; 


114-0 PRINT RT 11 +R , 16 -B; 
1150 PRINT RT 11+R,16+B; 
1160 PRINT RT 11—R,16+B; 


PAPER 5 

PRPER S 
PRPER S 


PRPER S 
PREMI SPRCE P 
THEN GO TO 12 


1170 PRINT RT 0,0; 

ER PROSEGUIRE" 

1180 IF INKEY$ = " *' 

00 

1190 GO TO 1120 

1200 REM saracinesca verticale a 
Piu' caratteri grafici 

1205 PRUSE 200: CLS 

1206 BORDER 2: PRPER 7 

1210 FOR S=1 TO 7: FOR T=0 TO 2 
1230 PRINT TRB 2: BRIGHT 0: INK 
S; " - " INK 6; BRIGHT INT 

<s zia! ; ; ink s; 

124-0 NEXT T : NEXT S 
1250 PRUSE 200 
1255 CLS 

1300 REM saracinesca orizzontale 
1320 FOR s=0 TO 254- STEP 2 
1330 PLOT S, 4- : DRRU BRIGHT 1;0,1 


67 

1340 NEXT S 
1345 PRUSE 200: CLS 
1350 REM saracinesca verticale 
1370 FOR S=8 TO 174 STEP 2 
1375 PLOT 2,5: DRRU BRIGHT 1;250 
/0 

1380 NEXT S: PRUSE 200 
1385 CLS 

1400 REM saracinesca orizzontale 
con aperture 
1410 BORDER 1: PRPER 6 
1420 FOR 5=0 TO 250 STEP 2 
1430 PLOT S,4 

1440 IF S <60 THEN DRRU BRIGHT lj 
0, 167 

1445 IF S=100 THEN DRRU BRIGHT 0 
; 0.167 

1450 IF 5=150 THEN DRRU BRIGHT 1 
: 0,167 

1455 IF S >200 THEN DRRU BRIGHT 0 
; 0,167 

1460 NEXT S . _ 

1470 PRUSE 200: CLS 

ISO© >rem sovrapposizione dei var 
i tipi di saracinesche 
1510 PRPER 7 

1520 FOR S=1 TO 7: FOR T=0 TO 2 
ISSO PRINT TRB 2; BRIGHT 1; INK 

S; “ - i INK 6; BRIGHT INT 

(S s 12> ; ''mMtà&ttmésm''i INK S; 
BRIGHT lT^m 
1540 NEXT T: NEXT S 
1560 FOR S=0 TO 254 STEP 2 
1570 PLOT S,4 : DRRU BRIGHT 1;0,1 
67 

1580 NEXT S 

1620 FOR S=4 TO 170 STEP 2 

1630 PLOT 4,S: DRRU BRIGHT 1;250 

, 4 

1640 NEXT S 
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Seguito listato I 

165© REM creazione dell'effetto 
di impatto applicato alte saraci 
nes che 

1670 FOR S=1 TO 200 
1680 BORDER RND+7 
1685 NEXT S 
1690 PAUSE 200: CLS 
1700 REM passaggio di un caratts 
re grafico e relativo nentio 
con pausa al centro del video 
1-713 -BORDER- 2 -ARDER • 5 
1720 FOR 5=1 TO 27: BEEP .05 ,CS: 
PRINT RT 10,5; X MK li " BHffi";RT 

10.5- 2; INK 2;" == •• : PRINT RT 

11, s; INK 4.;" IMIJPTat ii,s-2; I 
NK 5;- NEXT S 

1725 CLS 

1730 PRUSE 100 _ _ __ 

174-0 FOR 5 —i' TO '13:' "BEEh j^3V«5: 
PRINT RT 10,S, INK l;" MfflS »RT 

10.5- 2; INK 2, " : PRINT RT 

ll,S; INK 4-; •• IBIfflFTflT 11,5-2; I 
NK 5;" : NEXT 5 

174-5 PAUSE 200: CLS 

1750 REM routine di rientro con 

t i n u o _ _ 

1760 LET Rjt=“S = = 


>0 


B$ = ' 


Iti! 


TO 1 

i,a; 


STEP -1 
INK l; fl$, 


RT 3 


LET 
HI) 

1775 LET P=1 
1780 FOR S = 19 
1790 PRINT RT 
,0; INK 2;BS 
1800>LET A*=A${3 TO )+A$(P TO 2) 
1810 LET B$=8$(30 TO 31)+B$i TO 
29) 

1820 NEXT 5 

1825 PRINT RT 20.0; 'PREMI SPPCE 
PER PROSEGUIRE’ 


1830 IF INKEY$ = 
50 

1840 GO TO 
1870 PRUSE 
1900 REM 
tin u o in 


THEN GO TO 18 


1750 

200 : 


CLS 

routine di rientro con 
verticale,con sonoro 


1910 PRINT «0;"PREMI SPACE PER P 
ROSEGLI IRE” 

1915 SORGER 4: LET 1=12 

1920 FOR 5=19 TO 1 STEP -1_ _ 

1930 PRINT RT 5,1; INK 2 ; " GSilfjSat 

2.935 -PRINT - RT - S-fl-,-1; - -INK 2; 

8R0" . BEEP .02,05 

1940 PRUSE 5 

1945 PRINT RT S,I," 

1950 PRINT RT 5+1,1;” 

2,955-NEXT - S 

1970 IF INKEY $ = ” " THEN GO TO 20 

00 

1980 GO TO 1920 

2000>REM routine di riet }!rf° 

alternato, orizzontale e veitiua 

le,con sonoro 

2005 CLS- : PAUSE 200 

2010 PRINT 00;"PREMI 5PRCE PER F 

ROSEGUIRE" _ 

2015 BORDER 4 : LET I = lg 

2020 FOR S =19 TO 1 1,—,—.m wvn— , 

2030 PRINT RT S,I, INK 2, EEDIISSH-J 

2035 PRINT RT S + 1,I; INK 2.: 


fflB". BEEP .02,05 

2040 PRUSE 5 

2045 PRINT RT 5,1," 

2050 PRINT RT 6 + 1,1; 

2055 NEXT S 

21.P0 .FOR. Sj= 1. JA. P-7 -.iìEFP. --J0F -. -0-5 ; 
PRINT RT 10,5; I NK 1, " ; RT 

1 INK 2; _- : PRINT HT 

lifif XKK4; " 'PiiJir^RT U,S-a.: I 
NK 6;“ NEXTS 

2110 IF INKEY$= THEN GO TO 21 

50 

2120 CLS : GO TO 2010 
2300 REM composizione 
2310 PRUSE 200: CLS 
2525 INK 1: LET A$="IVANO" 

2530 LET X =6 : LET B = 13: GO SUB 2 

2540 INK 2: LET A*="PARBUONO" 
254-5 LET X =8 : LET B = ll. GO SUB 2 

”7 tata 

2548 INK 5; LET A$="UIR R. DI CR 

2550 LET X=10: LET B=7: GO SUB 2 

70O 

2552 


INK 5: LET AS> = "37136 UERONfl 

GO SUB 2 

2555 INK 4 : 


2554 LET X=12. LET B=9: 

70O 

LET A* = " = 

_ LET X =4 : LET B = 5: 

SUB 2700 ._ 

2556 INK 2: LET R* = “: 

LET X = 14 : 


GO 


LET B =5 : GO 


•-SUS- 0-700 
2558 FOR S=104 TO 145: BEEP .001 
•SX2.5: PLOT S,119: NEXT S 
2560 FOR 5=155 TO 85 STEP -1: BE 
EP .001,5/2.5: PLOT 5,103: NEXT 
5 

2590 GO TO 3310 

2700 FOR S=LEN A$ TO 1 STEP -1 
2710 FOR r = 1 TO B+S-l: BEEP .01, 
F +5*2 + 1: PRINT RT X,F-1," ";A*(S 

.) . JJF.VT F 

2720-"NEXT o 
2730 RETURN 
3310 PAUSE -200 ;■ CLS 
3320 BORDER 1: PRPER 7 
3330 FOR 5=0 TO 116 
3335 LET P=RND*5 
3340 "PRINT- ''IVANO-- , : 

3350"NEXT 5 
3360 PRUSE 300 
3370 PRINT RT 10,12; 

LRSH l; INK 0.: " FI 
34-00- PAUSE- 0 

9203 FOR C =USR "B" TO USR "F"+7 
9220 READ USER: POKE C,USER 
9230 NEXT C _ _ 

9250 ' DATR "2o3 ", 0 /2o3‘, 0 ", 0 y253 0 yZz> 
5 

9260 DATA 170,170,170,170,170,17 
0,170,170 

9270 DRTR 146,73,36,145,73,36,14 

6,73 

9230 DRTR 255,153,153,255,255,15 
3,153,255 

9290 DRTR 255,129,129,153,153,12 

n. -^-20"! CS5 

9500"RETURN 


• -INK • P 


BRIGHT 

NE 


i; f 


della linea 500, permette di realizza¬ 
re una scritta o dei grafici di vari 
colori in obliquo sullo schermo ed è 
integrata dalla linea 510 che aggiun¬ 
ge un effetto sonoro (figura 1). Ve¬ 
diamo ora la routine che inizia alla 
linea 750 e cioè la sovrapposizione 


di pannelli colorati. Chiaramente 
anche qui, come in tutte le altre, si 
può intervenire per aggiungere o co¬ 
munque modificare colori e quanti¬ 
tà di pannelli che in questo caso so¬ 
no generati dai LOOP delle lince 
760-780-800, mentre le linee 770-790 


creano il colore. La routine che ini¬ 
zia alla linea 810 è un riempimento 
in righe orizzontali dello schermo 
per la quantità desiderata, e questo è 
possibile cambiando i valori di linea 
900. 

La linea 930 è stata aggiunta solo 
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Tabella 1. Lista dei caratteri grafici. 

Linea 910 
Linea 1230 
Linea 1930 

Carattere grafico 
Carattere grafico 
Carattere grafico 

B 

B - C - D - E 

F - B - C - D - E - F 
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per poter continuare o terminare la 
dimostrazione in oggetto. Le linee 
che iniziano dalla 1020 servono a 
creare un cielo stellato, realizzato da 
una semplice routine che crea dei 
pixel in funzione RND comandate 
dalle linee 1030 e 1040. La routine 
seguente ha lo stesso scopo, cioè il 
riempimento del video con dei qua¬ 
dratini colorati: anche qui rimane 
sottointeso clic modificando le linee 
1130-1140- ì 150-1160 si può ottene¬ 
re la riduzione del riempimento del¬ 
lo schermo,^cioè il riempimento par¬ 
ziale. Vediamo ora le routine succes¬ 
sive che sono quelle comprese fra la 
linea 1205 e la 1640: qui abbiamo 
una serie di LOOP che definiscono 
rispettivamente una serie di saraci¬ 
nesche in verticale, orizzontale, 
orizzontale con aperture (figura 2 e 
3). Terminata l’esecuzione delle 
stesse, il programma ricomincerà di 
nuovo le stesse esecuzioni ma con 
una sovrapposizione di caratteri 
grafici. Per completare l’effetto 
chiusura delle varie saracinesche è 
stato inserito un LOOP che va dalla 
linea 1670 alla 1685 e crea una serie 
di FLASH applicati al bordo dello 
schermo dando l’effetto d'impatto. 
La routine compresa fra le linee 


PRRBUONO 
PBRBUONO 
PARBUONO 
PARBUONO 
PARBUONO 
• PARSO ONO 
PBRBUONO 
PARBUONO 
PARBUONO 
PARBUONO 
PARBUONO 
PARBUONO 
PRRBUONO 
PARBUONO 
PARBUONO 
PARBUONO 
PARBUONO 
PARBUONO 
PARBUONO 
PARBUONO 
PARBUONO 
PARBUONO 

Figura 1. Scritte oblique. 


1700-1740 permette di effettuare un 
movimento orizzontale attraverso 
lo schermo, con un rientro dopo un 
intervallo che può essere più o meno 
lungo per poi stazionare nella posi¬ 
zione voluta. Il passaggio è determi¬ 
nato dalla linea 1720, l’intervallo 


dalla linea 1730, mentre il rientro 
con stazionamento è determinato 
dalla linea 1740. Le linee 1750-1820 
compongono la routine che permet¬ 
te un rientro continuo in verticale, 
un rientro continuo in orizzontale di 
qualsiasi carattere grafico o scritte 
continue. Si possono aggiungere 
quante più righe si desiderano e si 
può dare, tramite le lince 1800 e 
1810, il senso di rotazione voluto per 
ogni singola riga. 

In questo esempio la linea 1800 
crea un movimento che va da destra 
verso sinistra, mentre la linea 1810 
crea il movimento che va da sinistra 
verso destra. Mentre prima abbia¬ 
mo visto il rientro continuo in oriz¬ 
zontale, l’esempio successivo cioè 
quello che comprende le linee che 
vanno dalla 1900 alla 1980, permette 
un rientro continuo in verticale in¬ 
tervallato da un PAUSE 5 e comple¬ 
tato con un BIP sonoro. Le linee che 
vanno dalla 2000 alla 2120 modifi¬ 
cano la routine appena descritta al 
rientro continuo in verticale, un ri¬ 
entro continuo in orizzontale che va 
avanti fino a che non si preme SPA¬ 
CE per passare alla esecuzione della 
routine seguente, che è stata chia¬ 
mata composizione in quanto si può 
comporre una scritta o un disegno a 
segmenti e intervallato dalla lun¬ 
ghezza della riga che si vuole scrive¬ 
re. Questa routine inizia alla linea 
2300 per terminare alla linea 2730. 
Si opera impostando come A$ la 
scritta che si vuole ricomporre, co¬ 
me X l'altezza della riga sulla quale 
si vuole scrivere c come B la posizio¬ 
ne cui si vuole che inizi la parola 
quando è stata terminata di scrivere; 
la linea 2558 fa in modo che la paro¬ 
la appena scritta venga sottolineata 
da sinistra verso destra mentre la 
linea 2560 sottolinea la parola suc¬ 
cessiva da destra verso sinistra. L’ul¬ 
tima routine inserita in questo pro¬ 
gramma serve a riempire il video di 


una scritta a vari colori determinati 
dalla funzione RND: qui per avere il 
riempimento completo del video se 
la scritta è superiore alle 5 lettere si 
dovrà intervenire alla linea 3330 di¬ 
minuendo il valore, mentre se la 
scritta è inferiore alle 5 lettere si in¬ 
terverrà sempre alla linea 3330 
aumentando questa volta il vaioree 
tutto ciò per evitare lo SC'ROLL che 
altrimenti si verificherebbe. A ese¬ 
cuzione avvenuta dopo una pausa, 
apparirà in mezzo allo schermo la 
scritta FINE senza cancellare i ca¬ 




ratteri già esistenti e con questa ter¬ 
mina la prima raccolta di MINI- 
ROUTINE che i più esperti trove¬ 
ranno forse abbastanza semplici, 
ma che una vasta schiera di lettori 
spero trovino utile o quantomeno 
interessante. ■ 
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Il Centro Commerciale Americano - sempre attento a recepire e a 
presentare in anticipo le più recenti novità dell'alta tecnologia - ospiterà 
quest'anno presso il padiglione espositivo di Via Gattamelata 5, Milano, 
la prima edizione della mostra DIDACTICS USA. 

La manifestazione - riservata a prodotti americani - intende offrire una 
panoramica esauriente dei più avanzati strumenti didattici oggi disponibili: 
dai sistemi audiovisivi (hardware e software) ai giochi educativi, dagli 
impianti per laboratorio e officina ai libri di testo e didattica. 

In concomitanza con la Mostra ed in collaborazione con l'ANCIFAP 
(Associazione Nazionale Centri IRI - Formazione e Addestramento 
Professionale), si terrà, nei giorni 8 e 9 NOVEMBRE, un Seminario dal 
titolo: “NUOVE TECNOLOGIE NELLA DIDATTICA: 

UN PONTE TRA SCUOLA E INDUSTRIA", così articolato: 

I giorno - La Didattica negli Stati Uniti e in Italia: Esperienze a Confronto 
- Seguirà una Tavola Rotonda - con la partecipazione di noti esperti del 
mondo del lavoro e della scuola. 





7/10 NOVEMBRE 1984 


Pei ulteriori informazioni. Tel. 02 - 469.04.51/2/3 
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CENTRO COMMERCIALE 
AMERICANO 



Via Gattamelata 5 - 20149 Milano 
Tel. 02/4696451 
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Expandet Sound Editor: 
che musica!_ 


■■BOMb 


D opo aver introdotto l’ar¬ 
gomento il mese scorso, 
passiamo ora ad una rasse¬ 
gna dei prodotti software della SIEL 
che facilitano l’uso dell'interfaccia 
MIDI, occupandoci questa volta di 
un programma realizzato per Spec- 
trum con memoria di almeno 48 
Kbyte. L’Expandet Sound Editor 
consente di programmare i timbri di 
diversi Expander SIEL simulando a 
tutti gli effetti le funzioni di control¬ 
lo del più costoso sintetizzatore Ma¬ 
ster Opera 6 - DK 600. Il package è 
distribuito su cassetta ed è facilmen¬ 
te utilizzabile. E’ stata infatti parti¬ 
colarmente curata la presentazione 
grafica, con schermate che mostra¬ 
no sempre più in dettaglio le varie 
sezioni di switch e potenziometri 
dell’Opera 6, permettendo la richie¬ 
sta di spiegazioni e di esempi ad ogni 
livello. Scopo fondamentale del pac¬ 
kage è rendere possibile definire ed 
ascoltare i timbri desiderati operan¬ 
do direttamente sull’Expander, se¬ 
condo le più complesse modalità 
d'uso dell’Opera 6. 

Quattro collegamenti e via! 

L’attrezzatura necessaria per uti¬ 
lizzare il programma si compone di 
un Expander, di due cavi MIDI, del 
MIDI Computer Interface (tutto 
materiale SIEL), di uno Spectrum 
48 Kbyte con monitor o televisore e 
di un registratore a cassette. Una 
volta connessi tutti i componenti, 
seguendo le dettagliate istruzioni ri¬ 
portate su un agile manuale d’uso, si 
può caricare il programma, premen¬ 
do sullo Spectrum il comando LOAD 
“” <ENTER> ed il tasto play del 
registratore. Terminata l’operazio¬ 
ne, compare sul video un elenco di 
alcune funzioni operative necessarie 
alla trasmissione dall’Expander del 
DUMP Program sotto sistema es¬ 
clusivo. L'utente dovrà pertanto 
abilitare innanzitutto l’Expander al¬ 
la registrazione, battendo 95 [EN- 
TER]: aggiustare poi la comunica¬ 
zione MIDI dell’Expander nella 
modalità INTERNAL EXTER- 


NAL; premere infine sullo Spec¬ 
trum il tasto ENTER. Completati 
con successo i preliminari, lo scher¬ 
mo propone finalmente nella parte 
alta le famiglie di intervento del sin¬ 
tetizzatore Opera 6 / DK 600, evi¬ 
denziando graficamente i vari grup¬ 
pi di comandi, mentre nella metà 
sottostante sono riportate le ulterio¬ 
ri istruzioni per il caricamento sul 
Sinclair del programma timbrico da 
variare. Per intervenire e modificare 
i registri timbrici dell’Expander oc¬ 
corre quindi scegliere il programma 
da variare e introdurre sull’Expan- 
dcr il numero corrispondente, pre¬ 
mere poi il tasto ENTER e risclezio- 
nare il programma timbrico, preme¬ 
re, sempre su Expander, il tasto Re¬ 
cord e infine di nuovo ENTER. Se la 
sequenza di comandi è stata eseguita 
correttamente, nella parte inferiore 
dello schermo comparirà ora la 
scritta “OK DATA RECE1VED”. 

Al lavoro con potenziomentri 
e switch 

La nuova schermata mostra tutte 
Je famiglie di parametri del sintetiz¬ 
zatore master con i potenziometri 
orientati nella giusta direzione c gli 
switch in ON (rappresentati da pun¬ 
tini neri), mentre la parte inferiore 
dello schermo riporta una descrizio¬ 
ne di tutti i comandi utilizzati dal 
programma per gestire le variazioni 
timbriche. I realizzatori di questo 
package hanno pensato di offrire la 
possibilità di ingrandire, a scelta, un 
solo gruppo di controlli e di poter 
intervenire sui singoli parametri, 
perchè concentrarsi sull’intero pan¬ 
nello può risultare dispersivo. Resta 
però possibile, una volta arrivati su 
una famiglia, ritornare a vedere l’in¬ 
tero pannello o richiamarne un’altra 
sezione. L’utente è guidato alla va¬ 
riazione dei diversi potenziometri o 
switch da semplici accorgimenti gra¬ 
fici: il potenziometro sotto tiro è evi¬ 
denziato da un intorno più chiaro 
rispetto agli altri della stessa fami¬ 
glia, non ancora abilitati alla modi¬ 
fica. 1 tasti numerici vengono utiliz¬ 


zati per scegliere le famiglie d’inter¬ 
vento e per spostarsi da un elemento 
all’altro dei vari gruppi. Una volta 
evidenziato il parametro da variare, 
si può cambiare lo stato di uno 
switch premendo il tasto S, mentre 
per i potenziometri la regolazione è 
più fine: il tasto R li fa girare a de¬ 
stra, il T provoca invece la rotazione 
contraria, a sinistra. Questi sposta¬ 
menti valgono una singola unità per 
ogni battuta di R o T; i valori vengo¬ 
no moltiplicati per 10 premendo 
contemporaneamente ai tasti indi¬ 
cati CAP SHIFT per una più veloce 
modifica. 


Verifica su strada 

In qualunque momento è possibi¬ 
le ascoltare il timbro che si sta va¬ 
riando, in modo da poterlo confron¬ 
tare con l’originale, specificando 
quindi se ci si riferisce alla posizione 
di partenza, premendo O (per 
OLD), o a quella in fase di modifica, 
battendo N (per NEW): sulla parte 
inferiore del video avrete una con¬ 
ferma della scelta operata dall’illu- 
minarsi della scritta “OLD SET- 
TING" oppure “NEW SETTING”. 
Per ascoltare qualcosa occorre infi¬ 
ne premere C, se si desidera l'emis¬ 
sione di un accordo, battere invece P 
per una serie di note separate. Qui, 
come in ogni altro caso, è possibile 
richiedere spiegazioni, premendo il 
tasto II che attiva la funzione di 
HELP. Sistemati a dovere i timbri, il 
programma originale e quello nuo¬ 
vo vanno scaricati sull’Expander, 
memorizzandoli in locazioni diver¬ 
se, premendo il tasto D e impostan¬ 
do poi il numero della nuova loca¬ 
zione. La funzione corrispondente 
al tasto F dello Spectrum permette 
infine di creare un impasto timbrico 
partendo con tutti i potenziometri a 
zero e gli switch in off. 

Per tutti gli interessati il solito invi¬ 
to: scriveteo chiedete lumi alla SIEL 
Zona Industriale 
63030 Acquaviva Picena (AP) 

Tel. 0735/60744. ■ 
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Il gioco come metodo 
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PROGRAMMI SCIENTIFICI 
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ingegneristici 
384 pag. L. 25.000 
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DAL FORTRAN IV 
AL FORTRAN 77 

Per chi deve programmare 
a livello tecnico scientifico 
e per chi vuole 
approfondire le conoscenze 
del linguaggio 
266 pag L. 18.000 
Cod. 517P 


IL BASIC DEL PET 
E DELL M20 

Un validissimo supporto e 
strumento di lavoro per 
chiunque voglia o debba 
imparare a programmare in 
BASIC con un Commodore 
o un Olivetti M20 
232 pag. L. 16.000 
Cod. 336D 

FORTH PER VIC 20 
E CBM 64 

Il libro spiega la 
programmazione in Forth: 
linguaggio che dopo 
essersi affermato in campo 
scientifico ed industriale, 
sta ora diffondendosi anche 
a livello di personal 
computer. 

156 pag L. 11.000 
Cod. 527B 


La Biblioteca che fa testo 


IL BASIC PER TUTTI 

Per i neofiti una facile e 
immediata introduzione al 
linguaggio BASIC e al 
mondo dei calcolatori 
264 pag. L. 17.500 
Cod. 525A 

50 ESERCIZI IN BASIC 

Una raccolta completa e 
progressiva di esercizi 
matematici, gestionali, 
operativi, statistici, di svago 
208 pag L. 13.000 
Cod. 521A 
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mpariamo il linguaggio 
macchina con il VIC e il C 64 


— Parte settima — 


Dal BASIC 

al linguaggio macchina 


di Alessandro Guida 

P er assimilare al meglio le istruzioni viste 
nelle puntate precedenti, cerchiamo di scri¬ 
vere un programma in linguaggio macchina 
partendo dal corrispondente in BASIC. 

In questa maniera potremo anche confrontare la ve¬ 
locità dei due linguaggi (anche se si tratta di un 
confronto sleale). 

Il programma, molto semplice, che scriveremo servi¬ 
rà a spostare uno sprite sullo schermo controllandolo 
con il joystick. 

Per le caratteristiche grafiche del 64, l’uso degli sprite 
e i registri del VIC (Video Interface Chip) riferitevi al 
manuale del 64 o al Programmerà Refercnce Ma- 
nual. 

Per semplificare il nostro lavoro si è trascurato il 
fatto che la coordinata X dello sprite può acquisire 
valori compresi tra 0 e 511 (essendo composta da 9 
bit), riducendo i valori possibili a quelli contenuti in 
un byte, cioè 256. 

Ecco il listato: 


10 v le =33248: rem indirizzo tese 
20 rem disegna sprite nel buffer cassetta 
30 f or l = !to61step3:poK.e832» i .24 :next 
40 <or1=30to32:poKe832*l,233:ne<t 
30 rem 

60 po*e2040,13irem puntatore disegno sprite 

70 xx'lOOiyy»100:pok«vle*0,<xtpoKtule♦I,yy«rem coordinate 
spr i te 

30 pokeule*21,Itrem abilita sprite 

90 f oxevic*39,1 : rem colore sprite ■ bianco 

100 rem ciclo di controllo coordinate via joystick 

110 joy=peek<36320>trem lettura Joystick 

120 rem aggiornamento coordinate secondo il Joystick 

130 if<joyandl)=Othenyy*<yy-l )and255 

140 t*<Joyand2> a 0thenyye<yy«| )*nd235 

130 If<joyand4>=0th«n.i<x = <xx-I >and233 

160 lf<joyand8> a 0then‘xx = < x ♦ I .'and 233 

I70 pokeule+0,•- :pokevle *l,yy:rem nuova posizione 

180 90t0 I IO 

200 pr ir.tpeek <56320) :goto20O 


Nelle linee da 130 a 160 vengono aggiornate le coor¬ 
dinate interessate dal joystick. Il risultato è mantenu¬ 
to all'interno di un byte facendo l’AND con 255. 
Quando darete il RUN apparirà uno sprite a forma di 
croce al centro dello schermo. Lo si potrà spostare 
con il joystick. Vi accorgerete, presto, che la velocità 
non è il punto forte di questo programma. 
Traduciamolo ora in linguaggio macchina. Il pro¬ 
gramma lo scriveremo a partire dalla locazione esa- 


decimale $C000, e riporteremo contemporaneamen¬ 
te anche i codici delle istruzioni per poterlo introdur¬ 
re in memoria. 

La prima operazione da fare è di disegnare lo sprite 
nel buffer della cassetta. Per creare un ciclo simile a 
quello della linea 30 ci serviremo dell’indirizzamento 
assoluto indicizzato dal registro Y. Questo è possibile 
perchè i dati da introdurre sono meno di 256 che è la 
capacità del registro Y. Per ottenere lo STEP 3 decre- 
menteremo per tre volte il registro ad ogni ciclo. Il 
ciclo sarà eseguito al contrario, da 61 a 1, perchè così 
è più semplice controllarne la fine. 

Infatti, quando il registro Y conterrà 1, venendo 
decrementato per tre volte consecutive, assumerà i 
valori 0,255,254 diventando negativo (bit 7 alto). 
L’istruzione BPL di salto condizionato fa eseguire il 
ciclo finché Y è positivo. 


e000 *9 18 
C0O2 «0 3d 
C004 99 40 03 
C0O7 88 
c 008 88 
C009 88 
c0Oa IO f8 


Ida **18 :il valori da memorizzare N24 

Idy **3d tcontatore del ciclo *61 

ita *0340,/ :*0340=M832 buffer cadetta 

dey < 

dey :STEP -3 

dey « 

bpl Se 004 ita y e' poi ìt ivo ripete il ciclo 


Il ciclo della linea 40 è più semplice da riprodurre del 
precedente. In queto caso l’indice Y viene fatto varia¬ 
re da 2 a 0 mentre il valore #30 è aggiunto all’indiriz¬ 
zo assoluto. Il ciclo procede alla rovescia per lo stesso 
motivo di prima. 


cOOc a9 ff Ida **ff svalor* da memorizzare 

c 0 Oe a 0 02 Idy **02 tcontatore dal ciclo 

c0IO 99 5e 03 sta *033e,y : *033e =110832 *1130 

cO13 88 dey :STEP-1 

c 014 10 fa bpl «C0I0 «sa y e* positivo ripete 

Vengono ora settati i vari parametri per la visualizza¬ 
zione dello sprite. Le locazioni $FB e $FC sono 
utilizzate per contenere rispettivamente la coordina¬ 
ta X e la coordinata Y e svolgono la stessa funzione 
delle variabili XX e YY. 


cO 16 

a 9 

Od 


ld* 

**0d 

C0 18 

8d 

f 8 

07 

sta 

*07f 8 

cOlb 

a9 

80 


Ida 

a *80 

cOld 

83 

fb 


sta 

*fb 

cOIf 

85 

fc 


sta 

*fc 

C02 1 

aO 

00 


1 dy 

**C0 

C023 

99 

00 

dO 

sta 

*dO0O,y 

C026 

C 8 



iny 


C027 

99 

00 

d0 

sta 

*dO00,y 

C02a 

a0 

13 


Idy 

**15 

c02c 

a 9 

e i 


Ida 

**0I 

c0£e 

99 

00 

dO 

sta 

*d 000, y 

C03 1 

1 

27 


Idy 

**27 

C033 

99 

00 

d0 

sta 

*d000 ,y 


ivilore puntatore aprite 
ipur.tatore aprite 
Scoordinata X e Y 
sia memorizza in due locazioni 

i 

se nei registri di posizione 
sdello aprite 


sseleziona spr ite l 
:e lo ab 1 1 ita 

sassegna colore bianco 


Inizia ora il Loop di controllo del joystick e aggiorna¬ 
mento delle coordinate contenute in SFB, $FC. Per 
aggiornare direttamente tali locazioni sono state uti¬ 
lizzate le istruzioni DEC e INC che hanno la stessa 
funzione di DEY, INY o DEX, INX ma che agiscono 
sulla memoria invece che sui registri. Nella tabella 1 
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trovate tutti i modi di indirizzamento di queste istru¬ 
zioni. I controlli sono eseguiti con lo stesso criterio 
del programma BASIC. 


c 036 

ad 

00 

de 

Ida sdc0O 

tlassa la porta dal joystick 

c 039 

aa 



t*< 

«conserva 11 valor* n*l r*g.X 

c 03 » 

89 

01 


and ■SOI 

1 

c03c 

dO 

02 


bn* ScC40 

«a* bit o*e 

cC3a 

c6 

#C 


e*c sfe 

«decremento la Y <Sfc> 

:040 

8» 



t*a 


<04 1 

29 

02 


a*.d »s ©2 

1 

C 043 

de 

02 


bn* Se 04 7 

«a* bit i-o 

C 043 

• 6 

le 


Ine Sfc 

1Incr ement a 1 a r 

c 04 7 

8* 



txa 

«ris t ab » 1 Isc* h 

c 048 

29 

04 


and ■S04 

\ 

C04a 

M 

02 


bn* Se 04* 

«sa bit 2*0 

C 04c 

c 6 

fb 


d*c Sfb 

«decremento la X <S«b> 

c 04» 

8a 



txa 

Ir istab 11 isc* A 

C 04 f 

29 

M 


and «SOS 

t 

C051 

dO 

02 


bn* Se055 

«sa bit 3-0 

c053 

• 6 

«b 


ine Sfb 

«incrementa 1 a X 

C055 

8» 



txa 

«r istab 1 1tsca 0 

c 056 

29 

10 


and aste 

i 

c 058 

de 

01 


bn* Sc05b 

«s* bit 4*1 <F1RE premuto) 

c 05a 

60 



r t* 

« torna al Bai ic 

<05b 

«0 

00 


ld> «SCO 

i 

C05d 

»5 

«b 


Ida Sfb 

«copia nuove coordinate 

C05f 

99 

ee 

de 

sta Sdeee.y 

«n*i registri di posizione 

c 062 

c8 



»»*y 

«dallo spr ite 1 

= 063 

a5 

#c 


Ida Sfc 

i 

c 065 

99 

00 

dO 

sta SdOCO ,y 

t 

C068 

4c 

36 

cO 

J«P Se036 

«r ip* t* il c le lo 


Abbiamo aggiunto la possibilità di tornare al BASIC 
premendo il tasto di fuoco. Dopo avere introdotto i 
codici riportati in memoria date il comando: SYS 
49152. 

Se non avete commesso errori dovrebbe apparire 
lo sprite quasi al centro dello schermo. A questo 
punto spostando il joystick la croce si muoverà cosi 
velocemente da diventare invisibile o visibile solo a 
tratti. Siamo costretti ad utilizzare un ciclo di ritardo 
per poter vedere il nostro sprite! Premete il FI RE per 
tornare al BASIC e aggiungete le seguenti istruzioni a 
partire da SC068. 




c068 a2 00 
= 06» c a 

cC6t> «a 
cOCc de fe 
C06* 4C » ce 


idi ssee 

de» 

nop 

bn* Iteti 
jn» «<036 


«ciclo di ritardo 
(ottenuto facendo contare 
«li registro X «ino a 256. 


Per rallentare ulteriormente il ciclo si è usata l'istru¬ 
zione NOP (No OPeration) che non esegue alcuna 
azione, ma obbliga il microprocessore a stare fermo 
per due cicli di clock. 

Date nuovamente il SYS 49152, lo sprite puressendo 
ancora molto più veloce che non in BASIC, è ora 
visibile in tutto il suo tragitto da un capo all’altro 
dello schermo. ■ 
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nuovidea 



Rita Bonelli 
Daria Gianni 

Alla scoperta del VIC 20 
architettura e tecniche 
di programmazione 


Un libro atteso da quanti - e 
sono moltissimi-hanno 
acquistato uno dei Personal 
Computer del giorno: 
il VIC 20 Commodore. 

Naturale completamento del 
precedente "Impariamo a 
programmare in BASIC con 
il VIC/CBM”, questo 
manuale può soddisfare 
diverse esigenze. 

Ci sono capitoli che trattano 
i file su disco e cassetta, la 
stampante VIC 1515, alcuni 
cartridge come VIC STAT, 

VIC GRAF, SUPER 
EXPANDER. Un’intera parte 
è dedicata alle porte I/O, al 
chip d’interfaccia video, al 
linguaggio macchina del 
calcolatore. Un’ultima 
Importante annotazione:tuttl 
I programmi che compaiono 
nel testo sono stati provati 
sul calcolatore e sono 
disponibili su cassetta 
e floppy disk. 

300 pagine 
Lire 22.000 
Codice 338 D 
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\ / f 

fà 


persona' e 


nome compier 


Provando e riprovando 


Nicole Bréaud-Pouliquen 

La pratica dell’APPLE 

Per imparare a usare un 
calcolatore bisogna... usarlo. 

Solo così, ad esempio, è 
possibile scoprire e sfruttare 
le immense risorse operative 
offerte dall’APPLE. Provando, 
riprovando e... leggendo un 
manuale come questo. 

Scritto da un vero esperto, il 
libro si compone di 3 capitoli 
fondamentali: 

• Il sistema APPLE II” 
dedicato all’hardware e al 

QnfttA/a rp 

• “Il BASIC APPLESOFT” 

con le istruzioni, 
i sottoprogrammi, 
gli operatori aritmetici e 
logici 

• “Il disegno e la grafica” 

con le zone di memoria RAM 
e le funzioni grafiche. 

Il tutto arricchito da numerosi , 
esempi ed esercitazioni con 
soluzioni: affinchè la pratica 
abbia l'immediata 
soddisfazione del riscontro. 

130 pagine 
Lire 10.000 
Codice 341D 
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_di riscaldamento_ 


Un programma di tipo 
amministrativo. 

E richiesto il modulo 
TI Extended BASIC 


di Sergio Borsoni 

Q uando ho iniziato a scrive¬ 
re questo programma pen¬ 
savo solo di proporre un 
esempio sull’uso delle matrici a due 
dimensioni. 


Quando mi sono accorto che con 
qualche aggiunta e qualche miglio¬ 
ramento poteva diventare operati¬ 
vo, in quattro ore per la stesura, più 
altre due o tre per il debugging e la 
messa a punto, ho portato a termine 
questo lavoro che non sarà la gioia 
di quanti concepiscono l’Iiome com¬ 
puter come un compagno di giochi 
intellettuali (o di giochi soltanto) ma 
giungerà certamente gradito a quan¬ 
ti desiderano mettere il naso, e non 
solo il naso, nei conti che manda a 
casa l’amministratore. E perchè no, 
per lesue caratteristiche il program¬ 
ma potrà essere utilizzato proprio 
dall'aniministratore! 


Quale configurazione è richiesta? 

E necessario il modulo SSS TI Ex¬ 
tended BASIC. Ho scelto questa 
versione soprattutto per usufruire 
dei comandi DISPLAY AT, AC- 
CEPT ATc PRINT USING che per¬ 
mettono di creare videate e tabula¬ 
zioni molto meglio di quanto non si 
possa fare con il BASIC residente. 
La struttura multistatement (più 
istruzioni sulla stessa linea) rende 
più difficile la lettura e la trascrizio¬ 
ne, perciò attenzione! Non è neces¬ 
saria alcuna espansione di memoria, 
il programma occupa 7,3 Kbyte. La 
stampante non è strettamente neces- 
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GASOLIO 

L. 

4560000 

ENEL 

L. 

134000 

TOTALE 

L. 

4694000 

DI CUI IL. 20 7. ... 
PER SPESE FISSE 

L. 

938800 

E LE RESTANTI ... 

L. 

3755200 

DA RIPARTIRE IN BASE 

AI 

CONSUMI 


n. 

cognome e nome 

5Up - 

rad- 

ore 

ore * 

sup. 

spese 
f i sse 

spese al 
consumo 

TOTALE 

i. 

ROSSI G. 

35 

450 

15750 

139821 

3463B6 

486207 


ALBERTI M. 

24 

835 

20040 

95877 

440734 

536611 

3. 

VERDI E. 

30 

745 

22350 

119846 

491536 

611382 

4. 

BORSAIMI S. 

30 

935 

28050 

119846 

616094 

736740 

5. 

MORATTI A. 

22 

649 

14278 

87887 

314011 

401898 

6. 

GUIDI F. 

38 

852 

32376 

151805 

712034 

863839 

7. 

POLI P. 

20 

583 

11660 

79897 

256435 

336332 

8. 

BERGAMI L. 

36 

729 

26244 

143816 

577175 

720991 


TOTALI 

235 

5778 

170748 

938800 

3755200 

4694000 


1’ammini stratore 


Figura I - Prospetto riassuntivo elaborato dal computer. La ripartizione viene fatta in modo convenzionale, presuppo¬ 
nendo l'esistenza di contatori per rilevare le ore di consumo di ciascun appartamento. Una parte percentuale de! totale, 
secondo te indicazioni dell'utente, viene ripartita come quota fissa mentre la rimanente è ripartita in base ai consumi. 
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saria, chi ne è sprovvisto dovrà ac¬ 
contentarsi dell’output su video. Es¬ 
so è del tutto simile alla copia su 
carta con la differenza che le 28 co¬ 
lonne del TI99/4A non consentono 
un’ampia tabulazione e si deve os¬ 
servare il prospetto finale suddiviso 
in tre sezioni. Su carta, invece, il 
risultato è quello illustrato nella fi¬ 
gura 1. 

In che modo viene effettuata 
la ripartizione 

Non tutti i condominii hanno le 
stesse esigenze in fatto di ripartizio¬ 
ne. Il programma prevede che si ten¬ 
ga conto sia della superficie radiante 
di ogni appartamento sia delle ore di 
consumo di ogni condòmino (molte 
abitazioni sono sprovviste di termo¬ 
stato e di contatore delle ore di con¬ 
sumo individuale). 

La spesa totale, alla quale posso¬ 
no concorrere più voci, viene divisa 
in due parti delle quali la prima ver¬ 
rà suddivisa in base alle superfici 
radianti per costituire le quote fisse e 
la seconda in base ai consumi. Que¬ 
sti vengono calcolati moltiplicando 
la superficie radiante per le ore di 
consumo. Le quote fisse e le spese al 
consumo vengono quindi sommate 
per ottenere l’importo totale. Il pro¬ 
gramma è attualmente dimensiona¬ 
to per un massimo di 20 apparta¬ 
menti in modo che tutti i nominativi 
appaiano in un’unica videata, ma è 
evidente che con poche modifiche 
tale limite può essere aumentato no¬ 
tevolmente. 



Come si utilizza il programma 

Quando viene dato il RUN appa¬ 
re il seguente menu: 

1 Dati costanti; 

2 Dati variabili; 

3 Ripartizione; 

4 Stampa; 

5 Fine. 

I dati costanti sono: il numero de¬ 
gli appartamenti, i nomi dei condo¬ 
mini e i valori delle superfici radian- 


Listato 1 - Il programma BASIC. 

100 RUM RIPARTIZIONE SPESE 
i x 0 REM •#•###** ** ■* x **** **■#* 

1EO REM versione 

330 REM TI CXTENDED BASIR, 

14-0 CALE CHAR < i 28, " 0000000OOOOOOOFF " > 

150 CALI. CHAR a29, "CCOOOOOOrF" ) 

1 60 CALE CHAR ( 130, " r - F " > 

3 70 CALE CHAR ( 13 i, " 0 i 0 ì O :i. 0.1010 1 0 L 0" 5 
! EO CAI.L CHAR ( 1 32 r " 5080808080603030 " > 

190 CA. .1. CHAR \ i 33, ” OC- 7F ” ; 

200 CALE CHAR ( i 34, '' 00031C08080S08C8” > 

210 liIM A* <20) ,T<20, 6 > 

220 BOBUB 430 
230 CA: .1 CREAR 

240 DISPLAY AT(5,6);"RIFARTI 2 IGNE SPESE” 
250 DI SPRAY AT ( 6, 7 > ; " D T fi ISCALDAMENTO " 
260 CARI. HCHAR ( 3,7,12S, 20 > 

270 CAl.L HCHAR (8, 7, 130,20) 

230 CALI. VCf IAR (4,6, 13 3 , 16 ) 

.290 CARI VCHAR ' 4,27, ì 32, 18 ) 

3 OC E t ■ L HCHAR '22 ,7, 130,20) 

71O DJSPRAY AT(10,7)SIZE(16):"1. DATI CD 
STANT 1" 

320 DISPLAY AT(12,7)SIZE(17):"2. DATI VA 
RIABILI" 

330 DI SPRAY AT ( 14,7 ) SI ZE ( .t 6 > : " 3. R T PAR TI 
ZIONE" 

340 DISPRAY AT(16,7>SIZE<10):"4. STAMPA" 
350 DISPRAY AT(18,?> S1ZE(7)s"5« FIME" 

360 DISPLAY AT(30,15)SIZE (7) :"scelta?" 
370 ACCEPT AT(20,23> 31ZE<1> VALIDATE("123 
45"):S$ 

3SC TF S*="l" THEN 470 

390 IF S*-"2" THEN 680 

4 00 IF' THEN 1010 

410 IF S*«"4" THEN 1690 

420 ir S*«"5" THE:'! 2270 ELSE 370 

430 SE ! P“0 : : READ N 

440 FQR J=1 TO N :: READ A$(J):s NEXT J 
4 50 FDR J«1 TO N : : READ T(J, 1) : : SUP-SU 
F+TCJ,1):s NEXT J 
•'60 RETURN 
470 CALE CREAR 

4SC FRINÌ " CONTROLLO DATI COSTANTI "i : 

490 00SUB 1450 

500 CAI. l HCHAR < 23,3,129, 23 ) 

510 PR [NT " ri. nome sup.r-ad, 

520 CALL HCHAR <23,3,12 C >, 28> 

530 BU r ‘=0 : : FDR J = ì TO N 
540 F RINT .3 S TAB (7) 5 A* < J ) 5 TA3 <22) 5 T ( J, 1 ) 
550 SUR—SUR+T(J, 1 ) : : NEXT J 
560 PRINT 

570 CALI HCHAR(23,3,l29,28> 

580 PRINT "confermi? (y/n) "5 

590 «ACCEPT AT ( 24, 17) MALI DA TE < " YvNn " ) ; R* 
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ti. Tutti sono contenuti nelle istru¬ 
zioni DATA alle linee 1660, 1670 e 
1680 del programma. Selezionando 
il numero 1 del menu è possibile 
verificare l’esattezza dei dati costan¬ 
ti ed eventualmente correggerli. Ta¬ 
le modifica, da programma non è 
permanente. L’unico modo per 
cambiare definitivamente i dati è di 
intervenire sulle linee contenenti le 
istruzioni DATA. L’alternativa sa¬ 
rebbe stata quella di creare, per i 
dati costanti, un file su nastro o su 
dischetto ma, tutto sommato, la so¬ 
luzione qui adottata è la più sempli¬ 
ce e veloce. Quando si modificano le 
istruzioni DATA è necessario segui¬ 
re alcune norme. Il numero iniziale 
deve corrispondere al numero dei 
dati che vengono inseriti successiva¬ 
mente, i nomi dei condomini non 
devono superare i 15 caratteri altri¬ 
menti sorgeranno problemi di tabu¬ 
lazione sul video. I dati variabili 
comprendono le varie voci che con¬ 
corrono alla spesa totale (fatture 
emesse in date diverse, bollette 
ENEL, ecc.) fino ad un massimo di 

10 e i consumi, in ore, relativi ad 
ogni appartamento. Va specificata, 
inoltre, la percentuale spettante alle 
spese fisse. Selezionando il numero 
3 si ha il calcolo della ripartizione ed 

11 display dei risultati parziali o tota¬ 
li sul video. In ogni momento è pos¬ 
sibile procedere o tornare alla videa- 
ta precedente senza dover aspettare 
la fine delle operazioni per poter 
controllare nuovamente i risultati 
iniziali.. Il punto quattro, infine, per¬ 
mette la stampa del prospetto finale 
nel numero di copie desiderate. 

Chi è sprovvisto di stampante può 
tralasciare tutta la parte del pro¬ 
gramma dalla linea 1690 in poi. 

Variabili del programma 

CHR$(128) e CHR$(132) - Servo¬ 
no per tracciare linee orizzontali e 
verticali, per formare riquadri, inte¬ 
stazione e chiusura tabelle, ecc. 
CHR$(133) - Sottolinea i dati in in¬ 
put per indicarne il formato. 
R* ,D $(134) - Definisce una freccia 



Seguilo listato 1 


6-00 E r ~ 

ùio r r * r .* :• 
ò 2 ‘ r J ' 


■ ,:R V " T»CM 23C 

W " THEN 59C 

A■ r •, . "quale dato vuoi 


ca 


r.b : . ri ~ '■ 

f. 7 ,• qr ■ r 1 ,27)ST ZE(2) VALI DATE (DI Gl 

T ■ r C 

64 0 rr D-L C ::> D>N T! !EN 630 

ir./. ;•(•••: Vi AT<'C, 1) : "scrivi i nuovi dei 

i ’< . pf;ikt :: PRIMI Di 

■ ,y o-r r '.y'24, : ACCEPT AT(?4 


. 71 ): ! » r 1 ) 

L ' L * CREAR : • 
t LO DALL CLEAR :• 

' 90 ’ Ti 'fiJT "QUANTE! 


EUTO 480 

TOT hi_E“0 

ORCI CONCORRONO ALLA 


r>c - r rrjTA* c*" 11 : V 

70-; V-r;E!MT : IF THEN PRIMI "3PIACEN 

Tr.. MOM PIU* PI 1C ' " :: GG T 0 680 
7; -' PRIMI 

79C PRI NT "OCRIV DESCRIZIONE E IMPORTO" 


y.O r 'OR ’ --i 10 V : : PRIMI’ 

74 ’" PRIMI RPT* (CMRT « 133) , 1S> 5 " 


Il > 


PRI 


MT (S-p-fS l r ■ ;PJ , IT’; ■> . 7 I 

770 ECCEPÌ AT f 2Z : ) 3IZE ( 18) : DE$ C J) 

’ O •-» T ,yr ( - ;■> i ; e : ; 7£ .;9> VALIDATE {DISI 


T;: IMF i J> 

77' TOTA! E ---TOT ALE 1 IMP < <7 ) 
*7SO NEXT J 


/ ì‘j r •.;v . 

. 7 .-. pp rp-j- «QUALE ALIQUOTA PERCENTUALE":" 
VIENE RISERVATA ALLE SPESE" 

810 1 MPIJT "RISSE ? CO " : PEPO 

320 IR PERC< 0 Or-. PERE;100 THEN PRI NT "VA 

l.nsr MSN ANNESSO ! " s s GO TO 790 

33'" PPI NT 

340 FRI NT ' corvi rmi ? (y/n j " 

P30 ACCEPT iT <23, 8 >:R* 

7/9 ir p*:-' V" OR THEN 8S0 

o .-9 rr C'P R$-"p" THEN 600 ELSE 85 


880 CALI. CLEAR s : ORE-O : s CONSTO 
8 90 RIN T " CONCUNI : " : : 3 
900 CALL HCHAR(23,3,12?,28) 

910 PRINT " n. nome ore": : 

920 CAIA HCHAR(23,3,129,28) 

930 POP J~1 TO N : ; PRI NT : : PIGPLAY AT ( 

. :3 ,!>:,! s * DI SPI. A V AT (23,7) sA*(J> 

4 4 0 A C C. E P T A T ( 2 3, ? 3 ) S T 7 E ( 4 ' V A LID A T E ( DIGI 
T ) : T < J, 2 ' : s ORE^ORE+T (.7,2) 

970 T ( .7,3 > T ( 1 , i ' * T ( J, 2 ) : : CONS=CONS+T ( J 

96 C NE>.T .7 

970 i-TUMT r CAI..L HCHAR <23, 3, 129,23) : : D 

ATT $:=; " Y" 

iqa '0 SPRAY A f (24, 1 ): "corvfertni ? ( y/n ) " : 
ACC:EPT AT(24, 17>SÌZEC1>VAI.IDATE("YyNn" 

> • p <fr 


81 






che compare in un messaggio. 
A$(20) - Contiene i nomi dei condò¬ 
mini. 


T(20,6) - Contiene i valori che com¬ 
paiono nel prospetto finale ed è 
composta dai seguenti campi: 
T(J,1) - Superficie radiante dell’Jesi- 
mo appartamento; 

T(J,2) - Ore di consumo; 

T(J,3) - Superficie radiante per ore; 
T(J,4) - Quota fissa; 

T(J,5) - Spesa in base al consumo; 
T(J,6) - Importo spettante ad ogni 
condomino. 

S$ - Scelta da menu. 

N - Numero degli appartamenti e dei 
condomini. 

SUP - Somma totale dei prodotti tra 
le superfici radianti e le ore di consu¬ 
mo. 

R$ - Risposta (y/n); accetta caratteri 
maiuscoli e minuscoli. 

D - Indica il numero del dato da 
modificare. 

TOTALE - Spesa complessiva. 

V - Numero delle voci che concorro¬ 
no alla spesa totale. 

J - Variabile di controllo per i cicli 
FOR NEXT. 

DE$ - Descrizione delle voci che 
concorrono alla spesa totale. 

IMP - Somma che concorre alla spe¬ 
sa totale. 

PERC - Percentuale da addebitare 
come spese fisse. 

ORE - Ore di consumo totale. 
CONS - Somma totale dei prodotti 
tra le superfici radianti e le ore di 
consumo. 

DATIS - Variabile flag per stabilire 
se sono stati introdotti i dati; per 
procedere al calcolo è necessario che 
DATI$=‘‘Y”. 

TOT1 - Importo da ripartire come 
quota fissa. 

TOT2 - Importo da ripartire in base 
ai consumi. 

K - Variabile usata nell’istruzione 
CALL KEY; contiene il codice 
ASCII del tasto premuto. 

F$ - Messaggio che appare sul video 
per procedere o tornare alla videata 
precedente. 

Mie M2 - Fattori per il calcolo di 
ripartizione. 


Seguito listato I 

990 IF R*-r"V' ! OR THEN ,..30 

3 000 TF R$k"N" OR THEN 380 Et SI'. 9 

80 

.101.0 IT DA T I*—"Y" THEM 1.030 
-.020 BOTO 1640 

1070 ©CSUB 1430 : : GOBUB 1530 :s CALI. C; 
EAR 

1 040 FRI NT TAB (6) ; "RIPARTI? IONE 5 SPESE" : T 
m (7)5"DI RISCALDAMENTO"s s 
1 O r - 0 CAI L HO 1AR (23,8,1 29, 18) 

1060 PRINT :: PRTNT 

1070 POR J 1 IO V :: PRINT DE*( J) 5TAB<1° 

> 5 "I. "5 

1 ->80 PRINT USINO "######&•#” * IMF ( 7) : : NET 
T J : ; PRINT 

1070 CALL HCHAR(23,3 S 129,26) 

: ,t00 FRINÌ! -PER UN TOTALE DI " 5 ""AD ( 19 ) fi ’’L 

_i l( PRINT USINE "######•##" s TOTALE *: PF 
• NT ss PRINT 

:!..!. 20 PRI NT "DI CU I 11 " ; PERC 1 " % ..." 1 r A ‘ ? < 

; "L. " ; 

i 130 PRTNT 1 iS INE " fi##T#4 4# " : TOT ! 

1140 PRINT "PER SPESE FISSE’’ : : 

1130 PRINT "E CE RIMANENTI 1 TA3 19; 

"■L. " il 

1 ; 60 PR INT US 1 NG " M ### '11! 1 ; " : TOT 7 

11/0 PRINT "DA RIPARTIRE IN BASE AI CON 

il ai M «1 IKI T »’. 

» •. JU . i * « u • 

: leo ncstJB 1.490 

;.190 IF K-* 1 ! THEN 230 ELSE CALI CL ZA' 

120S CALI. HCHAfS<23, 3* 129,2S) 

1210 PRINT " r, sup. are un-. 

1 r<3td ., SUfj » rad, " 'i s 

1. ?20 CAI L MCi-IA » ( 23 ,3,12 7,22 > 

!230 FDP 3~-i TO N :: PRINT USINB "W’t 


< 24< ) -'p 1 l'.u 1 „ 

j, 1) ; 

1230 FRINT ' 


; PRIMI' US INC # T 1. 

F FI NT USINE 


1 7 ' 

t U ^ • 


•1 

.260 

PRIMI 

<• 

\ 1 1 

!' " 

FRINÌ 

LJS1 MS 

tl 

# ! ! il W $ 



>1 

i T ( 

7 2 : 

NE 

XT J 

- : PFUN 

T 





1 

',70 

CALI 

i :ch 

AF.L73 

,3,129, 

m 
ro 
- >• 

va 

PRINT " 

TQ 

T 


"SS! F 

P T N 

T USI 

NO "il## 

":SUP:. 





1 

280 

pf: 1 -rr 

tt 

1 » •• „ a 

P RI NT 

US I WG 

11 

•j^-N Jj. " 

*: 

0 

j. 

L ; 

PRINT 

•1 

» • • g 

PR 1 ;v T 

? iCT- J|\jp 


. . |j 

! 

# 

«t 

: Cf.: : 

-.1 tr? 









1 

300 

j NT 

« r, 

CALL 

HCHAR< 

23,3 1 

7:9 

,28: : 

; 


fri 

esu 

g 1 4 9 Té 









1 

310 

IF K- 

11 

THEN 

1030 






1 

320 

SALi_ 

INCHAR { ZI 

,3,129, 

28 > 





1 

1. 


PRINT 

" 

ru * 

NUOTA 

CI.TA A 

À 

TOTA 

1 

F 

tr 

M ^ 

■f? 

1(35 

A CONSUMO"!! 

« 





: 

310 

’.LL 

HCH 

AR .'73 

,3,129, 

28) 





1 

Z'.jQ. 

FCR J 

33 1 

TU N 

r: PR 1 N 

!T USINO 

"###" 
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GP550A 


due in una: stampante grafica 

e letter quality 




La GP550A 
è una stampante 
grafica di 
alta qualità che of 
tre accanto al funziona¬ 
mento abituale in DATA PROCES¬ 
SING MODE (stampa comune) la possi¬ 
bilità di stampa in NEAR LETTER QUALI¬ 
TY (stampa di documenti) in un’unica 
unità. Silenziosa, affidabile e ad un 


livello di co¬ 
stoeccellen¬ 
te, si propone 
per una varie¬ 
tà di applica¬ 
zioni che vanno 
dal data proces¬ 
sing, alla grafica, 
alla produzione di 
documenti. 


SEIKOSHA 


Caratteristiche: 

• Stampante ad impatto a matrice di punti 
da 80 colonne 

• Matrice di stampa 9x8 (Data Processing 
mode) e 9x16 (Near Letter Quality mode) 

• Percorso di stampa monodirezionale (da 
sinistra a destra) 

• Capacità grafiche con indirizzamento di 8 
o 16 dot verticali 

• Possibilità di ripetizione automatica di un 
carattere grafico 

• Velocità 50 cps (Data Processing mode) e 
25 cps (Near Letter Quality mode) 

• Caratterizzazione: 10, 12 e 17 cpi (e relativi 
espansi) in DP mode; 10 e 12 cpi e relativi 
espansi, italico corsivo TO cpi- e relativo 


espanso, super e sub scritture -17 cpi- e 
relativi espansi, proporzionale e relativo 
espanso in NLQ mode. 

• Interfacce: parallela Centronics (optionals 
Spectrum, Sinclair ZX81, seriale RS232C) 

• Alimentazione carta: trattori (larghezza 
modulo continuo variabile da 4,5 a 10") e 
frizione (foglio singolo) 

• Stampa 1 originale e 2 copie 

• Set di 96 caratteri ASCII e 44 caratteri e 
simboli europei 

• 8 generatori di caratteri europei a bordo 

• Consumo 9W (standby) o 30W (stampa) 

• Peso 5,5 KG 

• Dimensioni: 

305 (prof.) x 420 (largh.) x 113 (alt.) mm. 

• Nastro: singolo colore su cartuccia dedicata 
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TOT3 - Somma di tutti gli importi; 
differisce dal totale per alcune lire 
dovute alle approssimazioni intro¬ 
dotte con la soppressione dei deci¬ 
mali. 

DIFF - Differenza tra il totale ed il 
totale approssimato. 

CTR - Variabile contatore usata nel¬ 
la routine per pareggiare il totale. 
GMA - Accetta la data: giorno, me¬ 
se, anno. 

NCOP1E - Numero di coppie che 
devono essere stampate. 

COPIE - Contatore per le copie 
stampate. 


Routine utilizzate 

430 - Carica in tabella i nomi e le 
superfici radianti. 

1450 - Messaggio per premere la 
barra spaziatrice. 

1430 - Manda il messaggio che il 
computer sta elaborando. 

1530 - Principale routine di calcolo 
per la ripartizione. 

1490 - Manda il messaggio per pro¬ 
cedere o tornare alla fase preceden¬ 
te. 


Descrizione del listato 

100-210 - Definizione dei caratteri 
e dimensionamento delle matrici A$ 
e T. 

220 - Rimanda alla routine per il 
caricamento in tabella dei nomi e del 
valore delle superfici radianti. 
230-420 - Menu e rinvio alle varie 
sezioni del programma. L’istruzione 
ACCEPT AT accetta un dato in in¬ 
put da una posizione del video desi¬ 
derata e permette di specificare la 
lunghezza del dato(SIZE)edi accet¬ 
tare solo particolari valori (opzione 
VALIDATE). 

430-460 - Routine per il caricamento 
in tabella dei nomi e delle superfici 
radianti. Si trova in questa posizio¬ 
ne che può essere giudicata anomala 
perchè il programma inizialmente 
aveva una struttura sequenziale. 
470-670 - Sezione per il controllo dei 
dati costanti. Alla linea 590 si aspet¬ 
ta una conferma; se questa viene ne- 


Seguito listato 1 


• Pf; Ir(T PRIMI IJSING "#######": 

T 

i 370 PRIMI USINO ”##!)## " : T < J, 5> 5 : r PR 
IMI Ij.T.IND ’ : 1 J,6) 

1030 MIMT J :: FRI NT 

ì 790 FALL 4CHAR<23,3, 127,28) : : PRINT "TG 
PRINT US IMG "#######" : TOT i 
i * OO RI NT USINE "##£#####" : TDT2? : : PRIN 
T imi\IG TOTALE-: 

1410 PRINT : : DALL HCHAR(23,3,129,28) 
1420 SGSUB L490 ss IF **11 rilEM CALI. CLE 
AR r r ERTO 1200 ELEE 230 
J. 430 CAl.L CLEAR ;s DISPLAY AT <13,1): "UN 
HOME* 1TD- • STO ELABORANDO 11 
14 4<‘, RETURN 

4PO DISPLAY AT(24,11):"<space>" 

M60 CAL.L KEY (O, K, B) : : IF S=0 THEN 1460 
L 470 DISPLAY AT<24,1):" " 

;*Q0 RETURN 

1 490 Fi-" 'etri < "2<CHR$- ( J 34> &" ) “i nd. Xspac 
a-avani i>" 

1EOO 0ISPLAY AT(24,1): F* 

151 0 “.ALL KEY < E, K ,S):s IF S «O THEN 1510 
i520 CALI CLEAR :: RETURN 
1530 T3TI - INT•PERC*T0TALE/100): : T0T2-T0 
TALE-TOT1 

1540 Ml*T0Tl/SUF :: M2=TOT2/CONE :: TOT. 


1550 POR J-l TC N :: T ( J,4)~INT(T(J,1 )*M 
1) : : T- J,5) = INT(TM,3) *M2> 

1 560 T < 3,A)~T(J,4> +TCJ,5):s T0T3*T0T3+T< 
J,6)2 : NEX T 0 

1570 DII ' ' • TOTALE-TOT3 ss IF DIFESO THEN 
1630 

1580 CTR-!. 

1590 FC1.“ J4 TO M :: T ( J, 5> *T 5) + 1 
1600 CTR-CTR+-1 :: IF CTR-DIFF THEN 1620 
1610 MCYT ,J ss IF CTR4DIFF THEN 1590 
1620 FOR 3-1 TO N :: T( J ,6)»T<J,4)+T(J,5 
)s: NEVT J 
1630 RETURN 

1640 Culi CLEAR : : DISPLAY-AT<12,1)BEEPs 
"ATTENZIONE! NON SONO ANCORA STATI INTRO 
DOTTI T DATI." 

1 650 CDSll!:' J 450 : : GOTO 230 
'660 DATA 8 

1670 DATA ROSSI G.,ALBERTI M. ,VERDI E..S 
ORSANI 3. , MOFATTI A. , GLIIDI F. , POLI P. , BE 
ROANI I. 

i680 DA T A '5,24,30,30,22,38,20,36 
1690 IF rATI$--"Y" THEN 1710 
1700 GOTO 1640 

1710 BOGHE 1430 : GOSUB 1530 s s CALL CL 

EAR 

1720 PRINT "CONTROLLA CHE LA STAMPANTE": 
: "SIA COI.LEGATA ED ACCECA F": : 
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gata si passa alle linee successive per 
le modifiche. Specificato il numero, 
bisogna digitare nuovamente il no¬ 
me, premere ENTER, scrivere la 
nuova superficie radiante e premere 
ancora ENTER. La modifica non è 
permanente ma è valida per tutta la 
durata dell’elaborazione attuale. 
680-1000 - Sezione per l’introduzio¬ 
ne dei dati variabili. Alla linea 770 
viene calcolata la somma dei vari 
importi per la determinazione della 
spesa totale. Il programma è protet¬ 
to da eventuali bizzarrie dell’utente 
e, ad esempio, alla linea 820 si con¬ 
trolla che la percentuale non sia in¬ 
feriore a Oo maggiore di 100. In altre 
occasioni si impedisce con l’opzione 
SIZE che vengano introdotti strin¬ 
ghe troppo lunghe o valori numerici 
troppo elevati. 

1010-1420 - Display dei risultati sul 
video. Alla linea 1010 si controlla, 
prima dell’elaborazione, che i dati 
siano stati effettivamente introdotti. 
In caso affermativo viene mandato 
il messaggio di attesa per l’elabora¬ 
zione che dura soltanto pochi secon¬ 
di, quindi si passa alla stampa. In 
questa fase, come nelle successive si 
fa un largo uso dell’istruzione 
PRINT USING per il corretto inco- 
lonnamento. Si ricorda che l’istru¬ 
zione TAB non può essere contenu¬ 
ta nella PRINT USING, pertanto 
vanno associate nel modo seguente: 
PRINT TAB();:: PRINT USING 
variabile. Il display 
dell’Home Computer è troppo limi¬ 
tato per contenere l’intero prospet¬ 
to, pertanto esso è suddiviso in tre 
parti: la prima per gli importi di ca¬ 
rattere generale, la seconda per i dati 
necessari alla ripartizione e la terza 
per le quote parziali e totali. Per 
procedere sequenzialmente basta 
premere un tasto qualsiasi, per tor¬ 
nare alla fase precedente bisogna in¬ 
vece premere il tasto di funzione as¬ 
sieme al tasto con la freccia verso 
l’alto (FCTN(t)); il codice di questa 
funzione è lì ed infatti alle linee 
1190, 1310 e 1420 si controlla se K 
ha assunto questo particolare valo¬ 
re. 


Seguilo listato 1 

1.730 PRINT "CHE LA CAPTA SIA NELLA 31LI-" 
: :"STA POSIZIONE": : : 

1740 PRINT TAB(8) :"proceda? (y/n)" 

1750 ACCEPT AT(23,23)SIZE(1)VALIDATE("Yy 
Nri " ) : R* ! 

1760 IF R*="N" OR R*~"n" THEN 1750 
1770 PRINT " " :: PRINT "SCRIVI LA D 

A T A; " :: PRINT TAB < té») ? RPT* (CHR* ( 133) , 6) 
17130 ACCEPT ATI 22, 16) SI ZE ( 6) VALUTATE (DIO 
IT>: SNA 

•T90 P°INT :: PRINT INPUT "QUANTE OOP 
7 E? "sNCOPIE : : CAI. CLEAR 
1 800 0l S'PLAY AT < 12, 12): "STAMPA" : : OOPI E 


i SIO OPEN #4 :"PS232" 

1 320 PRINT #4:CHR*(13)?RPT*<" ", IO )i 
i R30 PRINT #4:CHR* <27);"E"t 
1340 PRINT #4:"RIPARTIZIONE SPESE DI RIS 
CALOAMENTO"? 

1.8 5<'. PR I NT # 4 : Ci IR* < 27 ) ; " F " : CHR* (27) $ " S " 5 
1860 PR I NT #4 s " AL " 5 BEC-i* ( STR* ( SMA ) , 

1,2);"/";5ES$<3TR$'GMA>,3,2);"/";SEG*(ST 
R*(GMA>,5,2);" 

1.870 PPTMT #4: " " 

1380 PRINT #4 :CHR*(27)jCHR*(68);CHR*<28 

5 CHR* (50) ; CKR* (53) :: CHR* (0) 5 " "il 

1390 POR J=1 TC V s: PRINT #4:" "?CHR*(9 

) ; DE* (Ct ) J CHR* (9) 5 "L. " 5 CHR* (?) ; 

ì 900 PRINT #4,USING "########": IMP( J >: : 

NEXT J 

191.0 PR I NT *-4 : " "5 Ct IR* ( 9 ) ? RPT*("-", 3.3 ) 

1920 PRI.NT #4: " ” : CHR* (9) ? "TOTALE" ; CfIR* ( 
s "1 . " 3 CHR* (9) ? 

1930 FRINT #4,USING "########": TOTALE 
1940 PRINT #4:" CHR*(9)3"DI CUI IL 

";. FERf.: "7. . . . " ? CHR* (9) ; "L. " ;CHR*(9> ; 

1950 PRINT #4,USING "########":T0T1 :: P 
RINT #4:" ";CHR*(9);"PER SPESE FISSE":" 


i960 PRINT #4:" " 3 CHR* (9) ? "E L.E RESTANTI 
..." il CHR* (9) ? "L. " 5 CHP* (9) ? T0T7 
1970 PRINT #4:" ";CHR*< 9):"DA RIPARTIRE 
IN BASE Al CONSUMI":" " 

1 980 PRINT #4: CHR* (27) j CUP:* (60> " CHR* (7 ' t 
CHR* (27) ' CHR* (32) ” CHR* (40) 5 CHR* ( 48) ; CHR'-I 


(57) i CHR*(67)5CHR*<0)5 
1990 PR I NT #4 :: RPT* ( "- " , 77 ) 


2000 PR 3 NT #4:" n.";CHR*(9)5"cognome a 
noma"‘CHR*(9)?"sup."5 

2010 PRINT #4:CHR*(9)j" ire";CHR*(9): 
o,-P *" ; CHR* (9) j " por-o" ; CHR* (9) % "speso 
TOTALE" 

"5 CHR*(9 > ?" ";CHR*(9)• "r 


al"? CHR*(9)3" 
2020 PRINT #4 


ad."? CHR*(9)3" "5 

2C30 PRINT #4: CHR* (9) 5 " -iup. " ■, CHR* (9) ? " 
f? •:,«?PHP* (9 ' 5 "consumo" 
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FU**' 


insegna tutto quel che c'é da sapere sul 
BASIC; 

mette subito in grado di programmare; 
fornisce una guida ragionata e 
competente alla scelta del 
Personal Computer. 

ABC Personal Computer 
è il corso che risponde oltretutto alle 
esigenze di chi non ha tempo da perdere, 
perché: 

si completa in meno di 6 mesi 
si compone di 24 fascicoli 
settimanali 


il Corso di BASIC 
in meno di 6 mesi 
ideato dagli specialisti 
el Gruppo Editoriale Jackson 
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pe r tutti coloro 
che vogliono 
davvero “dialogare” 
col computer 


La rapida diffusione dei computer nelle 
aziende, nelle scuole, nelle case ha reso 
urgente e indispensabile per molti 
imparare il linguaggio del calcolatore. Ci 
sono molti modi per farlo. Il più nuovo, 
originale,' rapido e divertente si chiama... 


ABC 

Personal Computer 

l'opera creata per rispondere alle esigenze 
di chi, per lavoro, studio, hobby vuole 
acquisire un'effettiva padronanza dei 
piccoli elaboratori per sfruttarne le 
immense, entusiasmanti possibilità. 


ABC 

Personal Computer 

tratta il BASIC in modo diverso, organico, 
comprensibile a tutti perchè nasce dalla 
grande esperienza e dalla capacità 
divulgativa del Gruppo Editoriale Jackson. 


ABC 



Personal Computer 

è un'opera preziosa, 
comprensibile per i ragazzi, 
perchè comincia proprio dall’abc 
dell’informatica; 
ideale per i professionisti, 
perchè rapida, esauriente, concreta; 
preziosa per gli appassionati 
perchè ricca di programmi già testati, di 
suggerimenti, di notizie sul mondo dei 
piccoli computer. 


ABC 

Personal Computer 

svela i segreti del BASIC - il linguaggio 
fondamentale dei personal, home e 
microcomputer - e fornisce la chiave per 
programmare da soli. 


Personal Computer 

24 appuntamenti in edicola per arricchire 
la biblioteca di casa con: 

® 2 volumi di Lezioni per complessive 
608 pagine 

© 1 volume di Computer-test 
© 1 Dizionario di Informatica di oltre 
208 pagine 

L’opera è elegantemente rilegata 
in similpelle. 

Centinaia di illustrazioni a colori, 
foto e disegni. 

Formato dei volumi cm. 21 x28. 

Formato del Dizionario di Informatica 
cm. 15x21. 


EDITORIALE JACKSON 

noi l’informatica 
la conosciamo davvero 

Abbonamento-risparmio 


| Tagliando da inviare in busta chiusa a: 

I Gruppo Editoriale Jackson “ABC Personal Computer" 
via Roseliini, 12 - 20124 Milano 

Si, desidero sottoscrivere l’abbonamento risparmio ai 24 fascicoli 
di ABC Personal Computer e alle copertine dei 4 volumi dell'opera. 
I Tutto ai prezzo speciale di L. 80.000 invece di l. 96.000. 


I Allego alla presente 

□ assegno non trasferibile di L. 80.000 a voi intestato 

□ fotocopia di versamento di L. 80.000 sul ccp n. 11666203 

I D fotocopia di vaglia postale di L. 80.000 a voi intestato 

l fascicoli dovranno essere inviati a: 


Nome 

Cognome 

Via 

Città 

Prov. C.A.P. 

Data 

Firma 

















Ripartizione 
spese 

di riscaldamento 

1430-1650- Routine la maggior par¬ 
te delle quali è adibita all’invio di 
messaggi sullo schermo (vedi: ROU¬ 
TINE UTILIZZATE). La principa¬ 
le, situata alle linee 1530-1630, effet¬ 
tua il calcolo di ripartizione che cor¬ 
risponde alla soluzione reiterata di 
proporzioni. Ad esempio, una quo¬ 
ta fissa sta alla superficie radiante 
come il totale delle quote fisse sta al 
totale delle superfici radianti, o, 
usando le variabili del programma, 
T(J,4): T(J,1) = TOTLSUP, da cui 
si ricava: T(J,4) = T(J,1) ★ TOT- 
1/SUP e, posto MI = TOT1/SUP, 
si ottiene infine T(J,4) = T(J,1) ★ 
MI. 

1660 - L’istruzione DATA contiene 
il numero degli appartamenti; in 
questo caso otto, corrispondente 
anche al numero di dati successivi. 
1670 - Nomi dei condomini. 

1680 - Numeri che esprimono le su¬ 
perfici radianti. 

1690-2260 - Sezione per la stampa 
del prospetto finale. 

1690 - Controlla che siano stati inse¬ 
riti i dati variabili. 

1720-1760 - Messaggio per il con¬ 
trollo del collegamento e dell’accen¬ 
sione della stampante. L’intestazio¬ 
ne del foglio è determinata dalla po¬ 
sizione di quest’ultimo al momento 
dell’accensione. 

1770-1800 - Richiesta della data e 
del numero di copie desiderato. Per 
la data si scrivono di seguito giorno, 
mese e anno, ad esempio: 280484 
(ENTER); nella stampa appariran¬ 
no poi le barre separatrici: 
28/04/84. 

1810 - Apertura del canale per la 
stampa. Il numero del file, in questo 
caso 4, può essere scelto a piacere, 
tuttavia deve corrispondere a quello 
specificato nelle successive istruzio¬ 
ni PRINT. 

1820 - Il carattere 13 corrisponde al 
ritorno carrello. 

1830 - I codici 27 e 69 o ESC “E”, 
provocano una stampa enfatizzata e 
danno all’intestazione un maggior 
risalto. 

1850 - I codici ESC “F” annullano 
la stampa enfatizzata; si torna per¬ 



Seguito listato 1 

■; 1 ' ' 

»£ : NT # •'•! : R-’Tt <„ ? 7 > 

2059 

por j-i in m 

jj. '-J Cj ■.) 

M 1* »! 

FRINÌ :i4, USING '####" sj; : s f-'RINT H . 

m a 

"RI:'!T #4: CHE® (9) “ A* < J) CHR* (9> “ 


PRI UT # 4, US1 MG " ## ## ” : T J, 1)5 

2090 
: ;'i : ! i! 

= ■ .: I NT #4 : CH'R* ( 9 ) ; : : PR I NT #4, US I MG 
i#T":T (3,2 )H 

•— -J .Vf’S 

~Ti ì NT «-4 : CHR* <9> 5 - PR 1 NT t! 4., UBI MG 


MIT" : T < J , 3 > 5 

j •? 

1 • RINT #4.CHR* 9 >; :s PR1NT #4,USIMB 

' tritai 

: il##";! f J. A ) : 

2 i. 20 

FRINÌ r!' : CHR* <9> ■ : : PRINT #4, USING 

,! rl t ,: !l ; i 

!■#### “ : T < J , 5) 5 

"y i 

PR I NT #4 : CHR* <9>. 5 s : PR I NT #4, US ING 

" -ivi-ttll 

NI### " s T ( 3, & ) : : NEXT J 

2140 

PRINT #4:RPT*("-", 77 ) 

2:.50 

PRINT #4i" "5CHR*(9)5"TOTALI"; 

2 1 à<\ 

PRINT #4; CHR«$<9)5:5 PRINT #4., USIIMG 

"###* 

U'ssup; 

2170 

PRINT #4s CHR* <?>;:: PRINT #4USIIMG 

"###* 

I##" : ORE5 

2 1 30 

PRINI #4:CHR*<9)5:: PRINT #4,USIMB 

"##M 

)#ft"sCONS5 

2190 

PR I NT #4 CHR* < 9 > ? s : PR I NT #4., US I IMG 

" 

Pi## " : TOT 15 

2200 

PRINT #4:CHR*<9>; : : PRINT #4,USING 

' 

####": TOTE; 

2210 

PR I NT #4 : CHR* ( 9 ) 5 ; - PR I NT #4., US I MG 

” #### 

####":TOTALE ' 

2220 

PR IIM"!" #4 ; RPT* ( " - " , 77 ) 

2230 

PRINT #4 :: " " : RPT* ( " " , 60 ) 5 " 1 armili n i 

rtrat 

ars " 

7240 

i /• > 

PR INT #4 : " " :: RPT* <" " , 60 ) 5 RPT* < "_ " , 

o n rr. t •* 

.«!_ C. 

PR I NT #4 : CHR* (12)::: COPIE--C0PIE+1 

7.2. J ~0 

IP COPIEXNCOPIE THEN 1820 ELSE GL OS 

E #4 

: : GOTO 230 


CALI. CLEAR : : END i 


tanto alla stampa normale. 

1880 - I codici CHR$(27); 
CHR$(68); CHR$(nl); ...; 
CHR$(0); fissano le posizioni per 
una tabulazione orizzontale. È im¬ 
portante che la sequenza sia chiusa 
con il carattere con codice 0. 

1890 - Il codice 9 (CHR$(9)) richia¬ 
ma sequenzialmente le posizioni fis¬ 
sate per la tabulazione orizzontale. 
1900 - Si osservi il corretto formato 
per l’istruzione PRINT USING rife¬ 
rita alla stampante; al numero del 
file deve seguire una virgola. 

1980 - Nuova definizione di posizio¬ 
ni per la tabulazione orizzontale. 
Mentre la precedente si riferiva ai 


dati generali, questa si riferisce ai 
dati particolari (vedi figura 1). 

1990 - L’ istruzione RPT$ ripete la 
stampa di uno stesso carattere o di 
una sequenza di caratteri. Nel caso 
specifico viene stampata una linea 
tratteggiata orizzontale. 

2250 - Il codice 12 fa avanzare il 
foglio fino al successivo inizio pagi¬ 
na. L’istruzione seguente controlla 
il numero di copie stampato. Se que¬ 
sto è inferiore a quello desiderato si 
torna a stampare una nuova pagina 
altrimenti viene chiuso il file ed il 
programma passa al menu principa¬ 
le. 

2270 - Chiusura del programma. ■ 
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SERVIZIO SOFTWARE 


P.S. propone ai propri lettori i dischi o le cassette dei programmi 
pubblicati. I programmi, provati e garantiti, sono di immediato utilizzo. 


P.S. n° 

Programma 

Sistema 

3 

La carta del cielo 
Collisione 

Apple II 

4 

Interi in precisione 
multipla 

Grafica 3D 

Apple II 

5 

Pretty printer 

Shape table 

Apple II 

7 

Data base modulare 

Apple II 

12-13 

Wei-ch'i 

CBM 3032 

14 

Tool-Kit 

C 64 

19 

Type Writer 

VIC 20 

20 

Scopa 

C 64 - 3032 


Prezzo 

Codice 

Supporto 

30.000 

1 

Disco 

40.000 

4 

Disco 

30.000 

6 

Disco 

25.000 

7 

Disco 

20.000 

8 

Cassetta 

35.000 

9 

Cassetta 

30.000 

10 

Disco 

25.000 

11 

Cassetta 


Per richiedere i programmi in contrassegno, pqgando direttamente al postino la cifra indicata, inviare il seguente tagliando 

Spedire in busta chiusa a Gruppo Editoriale Jackson - Via Rosellini, 12 • 20124 Milano 


-X- 


Inviatemi i seguenti nastri e/o dischi con i programmi 
pubblicati su P.S. 


GRUPPO EDITORIALE JACKSON 


Cod. 

1 1 1 1 

1 

1 ni 1 1 

1 

1 1 

1 1 

Cognome . 

Cod. L 

1 1 1 1 

1 

1 OL II 

1 

1 1 

1 1 

Nome 

Cod. L 

1 1 1 1 

1 

1 OL II 

1 

• 1 1 

1 1 

Indirizzo . . 

Cod. L 

1 1 1 1 

1 

1 ni 1 1 

L 

1 1 

1 1 

CAP . 

Cod. L 

1 1 1 1 

L 

J OL 1 1 

1 

1 | 

1 | 

Città . 

l SPESE POSTALI 

(contributo Asso) L. 3.000 TOTALE L. 1 — 1 — 

che pagherò al postino allo consegna del pacco 

J 

1 1 


Firma. 




















































ABC... QUIZ 
in 10 fascicoli 

esercizi pratici, programmi, problemi, 
soluzioni per chi conosce il BASIC e 
vuole applicarlo 


ABC...QUIZ 
in 280 pagine 

i problemi, i loro algoritmi, la loro 
soluzione; il tracciamento dei 
diagrammi a blocchi; i listati dei 
programmi e le varianti a seconda dei 
diversi "dialetti" BASIC; i programmi 
professionali di largo uso: spreadsheet 
o fogli elettronici, word processor, data 
base... 


1 Volume (Formatocm.21x28) 

ricco di illustrazioni, flowchart e 
programmi di gioco, utilità e pratica 

ABC... QUIZ 

un’opera da rilegare e custodire in 
biblioteca, è firmata 


GRUPPO 

EDITORIALE 

JACKSON 











casello di Melegnano 
-per C 64- 


Un esempio 
di simulazione 
mediante modello 
stocastico 

di Franco Sardo 

I n un articolo precedente 
(Personal Software n. 
10/11) ho affrontato l’ar¬ 
gomento dei programmi di simula¬ 
zione e dei modelli matematici, ma, 
per il taglio stesso dell’articolo, mol¬ 
to sintetico e generale, non mi sono 
soffermato su quello che probabil¬ 
mente è il più utile e il più affasci¬ 
nante tipo di simulazione: il modello 
matematico stocastico. 

Un modello matematico consiste 
nella descrizione di un fenomeno re¬ 
alizzata mediante le leggi che lo go¬ 
vernano. Dati certi input, il fenome¬ 
no viene descritto, o meglio simula¬ 
to, mediante calcoli effettuati secon¬ 
do queste leggi. 

Un processo fisico, un impianto chi¬ 
mico, una rete di tubazioni possono 
essere simulati purché si conoscano 
le leggi che mettono in relazione fra 
loro le grandezze in gioco; questi 
sistemi possono essere così speri¬ 
mentati senza bisogno di realizzarli 
fisicamente. 

Quando i valori in ingresso sono 
fissi e ben determinati, si parla di 
modello deterministico: cioè, se 
quelli sono i dati, quelli saranno i 
risultati, e non altri; per quel set di 
dati, la simulazione viene fatta una 
volta per tutte. In questo caso si par¬ 
la di simulazione e non di semplice 
programma di calcolo solo perchè il 
processo viene seguito nel suo evol¬ 
versi nel tempo, e ad ogni tempo T i 
risultati del calcolo precedente ven¬ 
gono utilizzati come input per la 
prova successiva. 


Ma più interessante è il caso in cui le 
grandezze in ingresso non sono ben 
determinate, ma variabili in manie¬ 
ra del tutto casuale o secondo certe 
leggi probabilistiche. Ad esempio, il 
numero di auto che affluisce in un 
minuto al casello di un’autostrada 
non è fisso, ma variabile intorno ad 
un valor medio, che, per lo stesso 
orario e il medesimo giorno della 
settimana e la stessa stagione, è ab¬ 
bastanza costante. 

Però ben sappiamo per esperienza 
che, anche se il valor medio è costan¬ 
te, ad esempio 20 auto al minuto, il 
valore reale è molto variabile: ci so¬ 
no momenti in cui arrivano 10 auto 
al minuto e altri in cui ne arrivano 
30. Se abbiamo la pazienza di conta¬ 
re, cronometro alla mano, quante 
auto arrivano in ogni minuto per 
un’ora intera, vedremo che molto 
spesso ne arrivano, ad esempio 20 
(valor medio), abbastanza spesso 15 


o 25, molto raramente 10 o 30. 

Se in un diagramma cartesiano met¬ 
tiamo in ascisse i valori di auto al 
minuto, e in ordinate il numero di 
volte in cui si è verificato quell’even¬ 
to (cioè il numero di volte in un’ora 
in cui ne sono arrivate 20 o 18 o 10), 
avremo il classico grafico a campa¬ 
na, che è la gaussiana. Tante più 
prove avremo fatto, tanto più il gra¬ 
fico si avvicinerà alla forma ideale. 

Lo stesso discorso vale per il nu¬ 
mero di auto che esce da ogni casel¬ 
lo; se il valore medio è 4 auto al 
minuto, vedremo che spesso capita 
che ne escano 3 o 5, più raramente 2 
o 6, e così via. 

Vedremo adesso come il traffico di 
auto al casello possa essere simulato 
al calcolatore: poiché le variabili in¬ 
dipendenti sono casuali, si parla in 
questo caso di modello stocastico 
(sono processi stocastici quelli in cui 
sono coinvolti variabili casuali o 
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aleatorie). 

Nel realizzare il modello partiamo 
da alcune assunzioni: 

1 - che le auto si distribuiscano uni¬ 
formemente fra i vari caselli aperti; 
questo è molto verosimile, perchè 
l’automobilista si dirige sempre ver¬ 
so il casello che ha una fila più breve; 

2 - che ogni volta che la coda nei 
caselli superi le 10 auto per più di 5 
minuti, ci siano disponibili degli im¬ 
piegati che provvedono ad aprire un 
nuovo casello; 

3 - che esista, come è ovvio, un nu¬ 
mero massimo di caselli apribili; 

4 - che se alcuni caselli restano vuoti, 
dopo qualche minuto un casello 
venga chiuso. 

Tutte queste ipotesi, tranne forse la 
solerzia e disponibilità degli impie¬ 
gati, sono effettivamente riscontra¬ 
bili nella realtà. 

Nel modello esistono due variabi¬ 
li indipendenti, che sono il numero 
di auto in arrivo in ogni minuto e il 
numero di auto in uscita per casello 
in ogni minuto. Queste grandezze 
vengono fatte variare casualmente 
intorno ad un valor medio scelto 
dall’utente. 

Da queste due variabili si ricavano, 
con semplici calcoli, tutte le altre: il 
numero di caselli aperti, il numero 
di auto e quindi la lunghezza della 
fila in ogni casello. 

La determinazione casuale delle va¬ 
riabili indipendenti e il relativo cal¬ 
colo delle variabili dipendenti ven¬ 
gono ripetuti per ogni minuto, e il 
fenomeno viene così seguito nel suo 
evolversi; una volta avviato, il pro¬ 
gramma gira senza fine finché non 
viene arrestato. 

Poiché infatti devono simulare 
delle condizioni dinamiche, le simu¬ 
lazioni mediante modello matemati¬ 
co non portano ad un risultato ben 
definito, ma, come si dice, girano. 
Di solito, girano fino a portarsi ad 
una condizione di equilibrio attorno 
alla quale oscillano. 

Cioè se arrivano 20 auto al minuto e 
ne escono 4 per casello, inevitabil¬ 
mente il programma si dovrà stabi¬ 
lizzare, prima o poi, intorno ai 5 


caselli aperti; per brevi periodi, in 
corrispondenza di punte di afflusso 
o di periodi di stanca, i caselli aperti 
potranno diventare 4 o 6, ma per la 
maggior parte del tempo saranno 5. 
Lo scopo della simulazione sarà al¬ 
lora di vedere qual è la lunghezza 
massima della fila che si forma nei 
periodi di maggior afflusso. 
L’output del programma è stato 
previsto su stampante: chi non la 
possiede può modificare le linee di 
stampa (da 385 a 420 e la 770) e 
utilizzare il video. 

La parte più delicata del program¬ 
ma in questione è senz’altro il siste¬ 
ma per la generazione delle variabili 
casuali che, senza pretendere di esse¬ 


re nuovo, è breve ed efficace. 

Per ottenere che con la massima fre¬ 
quenza si generino i valori medi, me¬ 
no frequentemente i valori vicini al¬ 
la media e raramente i valori lontani 
dalla media, secondo la distribuzio¬ 
ne gaussiana, si è utilizzato il se¬ 
guente sistema: 

1 si sono inseriti in una linea di DA¬ 
TA i valori percentuali della gran¬ 
dezza rispetto al valore medio (50%, 
55%, 60% ... 100% ... 145%, ... 
150%). 

Si è assunto che il numero delle 
auto in arrivo vari dalla metà ad una 
volta e mezza il valore medio; 

2 in una seconda linea di DATA si 
sono inserite le probabilità di ogni 


Listato 1. Il programma "Casello di Melegnano”. 

100 REM ***«*******♦#*♦**»!♦*:*♦*♦♦+*♦:*♦+ 

110 REM * TEORIA DELLE FILE * 

120 REM * * 

130 REM * FRANCO SARDO 1984 * 

140 REM *^*^**«*******it(»»*'*ì|(»ì|i**i|(*»' 

150 = 

155 ■ 

160 PRINT\T ^ A$= "#»!***##♦#»#*##***#*##***#'#*♦:#**##'*****#'' 

163 PRINTA$ : PRINT : PRINT" IL CASELLO DI MELEGNANO"'PRINT : PRINTAJ 

165 R=RHD(-TD 

170 PRINT"®IHKttWW" : INPUT "MEDI A ARRIVI AUTO AL MINUTO'LAU 

180 PRI NT " <sSStHeX?lHeleW" : INPUT "MEDI A USCITE PER CASELLO, AUTO AL MIN'SPA 

190 • 

200 REM PROBABILITÀ' AUTO IN ARRIVO 

210 DATA 0.5,0.55,0.6,0.65,0.7,0.75,0.8,0.85,0.9,0.95,1 

215 DATA 1.05,1.1,1.15,1.2,1.25,1.3,1.35,1.4,1.45,1.5 

220 DATA 2.38,2.88,3.41,3.97,4.52,5.05,5.53,5.93,6.24,6.43,6.5 

225 DATA 6.43,6.24,5.93,5.53,5.05,4.52,3.97,3.41,2.88,2.38 

230 : 

240 REM PROBABILITÀ' TEMPI DI PAGAMENTO 
250 DATA 0.5,0.6,0.7,0.9,1,1.1,1.3,1.4,1.5 
260 DATA 2,4,6,8,10,8,6,4,2 
270 : 

280 : 

290 REM INIZIALIZZAZ.E RIEMPIM.VETTORI 
300 DIMA(21),B<21),C(9),D(9) 

310 F0R K=1T021 READ A<K> NEXT 
320 F0R K=1T021 READ B<K) NEXT 
330 F0R K=1T09 READ CCKTNEXT 
340 F0R K=1T09READ DOO'NEXT 
350 ^ 

360 T=0 : RE=0F=0 : G=0 
370 CA=3 
380 • 

385 0PEN4,4 

390 PRINT#4,"MEDIA ARRIVI AUTO AL MIN. ",AU 

395 PRINT#4,"MEDIA USCITE PER CASELLO,AUTO AL MIN. ";PA 

397 PRINT#4 

400 PRINT#4,"TEMPO AUTO ARRIVATE AUTO USCITE N.CASELLI 
410 PRINT#4,"AUTO IN ATTESA LUNGHEZZA CODE" 
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singolo valore della grandezza; cioè 
ci sono 2,38 probabilità su 100 che si 
abbia il 50% del valore medio, 2,88 
probabilità su 100 che si abbia il 
55%, e cosi via. 

Questi valori sono stati ricavati 
dall’equazione della gaussiana: 

P(x) = k e~ xJ 

Per la forma stessa delle curve, 
questi valori sono crescenti fino ad 
un massimo corrispondente al valor 
medio, e poi decrescenti simmetrica¬ 
mente. 

3 I primi valori (auto al minuto) 
sono stati inseriti in un vettore 
A(K); 

4 I secondi valori (rispettive proba- 


415PRINT#4," PER CASELLO APERTI"; 

41?PRINT#4," PER CASELLO METRI'* 

420 PRINTH4 

430 

440 '• 

458 REM CICLO 
460 REM ***** 

4?0 

4S0 T=T+1 
490 

500 I=RMD(1)*100 

510 F0R KMT0 21I=I-B<K) 

520 IFIO0THEN AR=IHT(A<K)*RIJ) ^K=22 

530 NEXT K 

540 

550 I = INT<RND<1)*50)+l 
560 F0R K=1T0 9I=I-D<K> 

5?0 IFI<=0THEN P0=IHT(C(K)*PR) : K=10 
580 NEXT K 
590 ■ 

600 REM AR=AUT0 ARRIVATE NEL TEMPO T 
610 REM PG-AUT0 USCITE DA OGNI CASELLO NEL TEMPO T 
620 

630 CQ=RE+INT(AR/CA) 

640 RE=C0-PG 
650 

660 REM DETERMINA2.N.CASELLI APERTI 

670 IF RE <=0 THEN RE=0 F=F+1 

680 IF F=5 THEN CA=CA-1F=0 

690 IFCA=0THEN CA=1 

700 IF REMO THEN G=G+1 

710 IF G=5 THEN CA=CA+1 G=0 

720 IF CA>7 THEN CA=8 

730 : 

740 FI=INT<RE*5) 

750 

760 REM STAMPA 

770 PRINT#4,T;TAB(10)AR,TAB<10>PG;TftBa0)CAJTAB<10)REJ TAB<10)FI 
780 ^ 

790 GOTO450 


bilità) sono stati inseriti in un vetto¬ 
re B(K); 

5 si genera un numero casuale I, 
anche decimale, compreso fra 0 e 
100 ; 

6 si esamina tutto il vettore B(K) 
(probabilità) e per ogni suo elemen¬ 
to si sottrae da I il valore dell’ele¬ 
mento stesso. 

Se I diventa < = 0 l’elemento di 
A(K) corrispondente al B(K), per il 
quale si è verificato che 1 è diventato 
tale, viene assunto come valore della 
grandezza, e si sospende la ricerca. 
In pratica, visto che gli elementi di 
B(K) sono 21, si farà così: 

FOR K=1 TO 21 
LET 1=1 - B(K) 


11-1<=0 THFN G = VM ★ A(K ):K =21 
NEXT K 

dove VM è il valore medio della 
grandezza e G il suo valore casuale. 
Il sistema può sembrare macchino¬ 
so, ma in realtà è il più semplice. Se 
ci si pensa bene, si vedrà che il massi¬ 
mo di probabilità che 1 diventi <=0 
è in corrispondenza degli elementi di 
B(K) più grandi, cioè dei valori di 
massima probabilità. 

Un altro possibile sistema sarebbe 
di costruire un vettore di 100 ele¬ 
menti contenente 3 elementi pari a 
0.80 se ci sono 3 probabilità su 100 
che la grandezza assuma l’80% del 
valore medio, 5 elementi pari a 0.85 
se ci sono 5 probabilità su 100 che 
assuma l’85% del valor medio, e così 
via. 

Si genererà poi un numero casuale 
intero I fra le 100 e si preleverà 
l’I-esimo elemento del vettore. Ov¬ 
viamente dei valori più probabili ce 
ne sono di più, e quindi ci sono più 
probabilità che vengano scelti. 
Questo sistema, concettualmente 
più semplice, presenta però due in¬ 
convenienti: 

1) che i valori di probabilità devono 
essere interi, perchè deve esserci un 
numero intero di elementi del vetto¬ 
re contenenti quel valore della gran¬ 
dezza; 

2) che, se le probabilità sono, mettia¬ 
mo, 12 su mille, occorre costruire un 
vettore di 1000 elementi, con grande 
dispendio di memoria. 

Superato lo scoglio della determi¬ 
nazione casuale delle variabili se¬ 
condo una data legge di distribuzio¬ 
ni, il resto del programma non pre¬ 
senta difficoltà: 

• la linea 165 inizializza la funzione 
RND; 

• alle linee 170 e 180 vengono intro¬ 
dotti i valori medi di auto al minuto 
in arrivo e di auto al minuto in usci¬ 
ta; 

• le linee 200-215 contengono le per¬ 
centuali della grandezza rispetto al 
valor medio; 

• le linee 220-225 contengono le cor¬ 
rispondenti probabilità; 
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• la linea 250 contiene le percentuali 
di auto in uscita rispetto al valor 
medio; 

• la linea 260 contiene le probabilità 
corrispondenti; 

• le linee 290-380 provvedono al di¬ 
mensionamento dei vettori, al loro 
riempimento e alla inizializzazione 
delle variabili; il numero di caselli 
inizialmente aperti è fissato a 3; 

• le lince 385-420 stampano su carta 
i titoli iniziali. 

Da 450 inizia il ciclo che si ripete per 
ogni minuto dell’intervallo conside¬ 
rato: 

• la linea 480 aggiorna il contatore 
del tempo; 

• le linee 500-530 determinano il va¬ 
lore della prima variabile casuale 
come detto prima; 

• le lince 550-590 determinano il va¬ 
lore della seconda variabile casuale; 

• le linee 630 e 640 determinano il 
numero delle auto in attesa in ogni 
casello; 


• le linee 660-720 fanno aprire un 
casello in più o chiudere uno di quel¬ 
li aperti; 

• la linea 740 determina la lunghez¬ 
za in metri della fila ponendo in 5 
metri la lunghezza media di ogni 
auto (compresi camion e spazio fra 
un’auto e l’altra); 

• le linee 760-770 stampano i valori 
calcolati; 

• la linea 790 fa tornare all’inizio del 
ciclo. 

La procedura descritta può essere 
applicata a tutte le file d’attesa: bi¬ 
glietteria della stazione, clienti in un 
negozio, telefonate che arrivano ad 
un centralino; nonché, con le oppor¬ 
tune modifiche, a tutti i modelli ma¬ 
tematici in cui si segua l’evoluzione 
nel tempo di fenomeni legati a varia¬ 
bili oscillanti casualmente intorno 
ad un valor medio (richiesta di ener¬ 
gia in una città, traffico ad un incro¬ 
cio, carichi termici di un impianto di 
condizionamento). 


Bisogna però badare bene che la de¬ 
terminazione della distribuzione di 
probabilità di un evento non è così 
semplice; ciò perchè non è detto che 
la legge di distribuzione sia una 
gaussiana, e poi perchè, anche in 
questo caso, occorre determinare i 
coefficienti. 

Ad esempio, nel programma de¬ 
scritto, la curva di distribuzione dei 
tempi di pagamento è più ripida di 
quella delle auto in arrivo. Ciò si 
basa sull’assunzione, non suffragata 
sperimentalmente, che il tempo che 
un automobilista impiega a pagare 
al casello sia sempre, tranne eccezio¬ 
ni sporadiche, (tipico lo smarrimen¬ 
to dello scontrino ricevuto all’in¬ 
gresso) molto vicino al valor medio. 
Viceversa tutti noi siamo testimoni 
del modo in cui le auto ai caselli 
talvolta sembra che affluiscano ad 
ondate; per periodi anche lunghi 
non arriva nessuno e poi, improvvi¬ 
samente, ne arrivano a decine. ■ 
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COMMODORE VIC 20 E C 64 

Alcune scoperte sul drive 1541 

di Alessandro Guida 


Anche questo mese abbiamo una serie nutrita di 
suggerimenti per gli utenti dei piccoli Commodore. 
Siamo sicuri che costituiranno ottimi spunti per i 
vostri lavori. Però, poiché questa rubrica vuole es¬ 
sere un punto di incontro per tutti i lettori, se avete 
elaborato delle vostre routine o avete dei piccoli 
trucchi che facilitino la soluzione di particolari pro¬ 
blemi, inviateli alla Redazione di Personal Software, 
rubrica I Segreti del VIC 20 e C 64, e li pubblichere¬ 
mo senz’altro in queste pagine. 

I segreti del drive 1541 

Il 1541 è una periferica che riserva continue sor¬ 
prese, ma viene ugualmente un po’ trascurata. Vedia¬ 
mo due particolarità che non sono riportate sul ma¬ 
nuale. 

La Directory. Anche chi possiede il drive da poco 
tempo avrà già imparato a leggere il contenuto di un 
disco, detto directory, con il comando: 

LOAD 8 

seguito dal LIST. Questa operazione restituisce sullo 
schermo l’elenco completo dei file contenuti in un 
disco. 

Però, se questi file sono molti, può essere difficile 
riuscire a leggerli tutti. Inoltre, se si è alla ricerca di 
uno specifico file o programma, questo può sfuggire 
alla vista, confuso tra altri nomi. Il manuale del drive 
non specifica che è possibile ottenere anche delle 
directory parziali, contenenti solo alcuni dei file regi¬ 
strati sul disco. 

Ciò si ottiene specificando alcuni parametri dopo il 
simbolo “$” nella sintassi del comando. Ecco la 
sintassi completa: 

LOAD ‘‘$(filenamc) [=tipo]”, 8 

Dopo il dollaro ($), che comunica al drive la richie¬ 
sta della directory, si può specificare il nome di un file 
o di un programma. Se questo è presente, verrà 
restituito insieme al nome del disco e ai blocchi rima¬ 
sti liberi, altrimenti appariranno solo queste due ulti¬ 
me indicazioni. Così, se si vuole conoscere solo il 
nome del disco e quanto spazio è ancora libero, basta 
dare un nome sicuramente non in elenco, ad esempio 
un altro 


Perciò LOAD “$$”, 8 ci restituirà solo queste infor¬ 
mazioni, trascurando i file contenuti. Il nome del file 
specificato può contenere i simboli e “?”, così 
come li avete sempre utilizzati nel caricare i program¬ 
mi. In questo caso i nomi che il drive comunicherà 
alla richiesta della directory saranno solo quelli che 
coincidono con la parte di nome specificata. 

Se si vuole restringere ancora il campo di ricerca, è 
possibile specificare anche il tipo di file. Bisognerà 
indicare il tipo di file (SEQ, PRG, USR, REL) prece¬ 
duto dal segno “=”. 

Ad esempio il comando: 

LOAD “$*=PRG”,8 

leggerà il nome dei soli programmi sul disco, trascu¬ 
rando sequenziali, relativi e user. La tabella 1 chiari¬ 
sce meglio quanto detto con alcuni esempi. 

I file USER. Sul manuale del drive 1541 (come anche 
sui manuali di tutti gli altri drive Commodore) è 
riportata la presenza di un tipo particolare di file 
detto USER (appare col suffisso USR), sul cui uso 
però non è detto niente. 

In effetti c’è poco da dire, poiché sono dei norma¬ 
lissimi file sequenziali! Perché allora hanno un nome 
diverso? 

Semplicemente per distinguerli dagli altri, se gli si 
assegnano delle funzioni particolari. Si tratta solo di 
una comodità per chi programma. Ad esempio, se si 
creano degli archivi dotati di file indici sequenziali, è 
comodo registrarli sul disco col nome USR, per po- 


COMANDO 


LOAD "SS” 
l.OAD “SACENDA" 
LOAD "STESTT” 


LOAD • *???•• 

l.OAD “SGAME®” 

LOAD “$BOOT=SEQ" 
LOAD “S®=PR(;" 


Legge solo il nome del disco e i 
blocchi liberi. 

Legge la directory con i soli lì le 
di nome agenda. 

Legge la dir. con i soli file il cui 
nome è composto da TEST più 
un altro carattere. 

Esempio: TESTI. TEST2. 
TEST.I 

Legge la dir. con i soli file il cui 
nome è composto da tre lette¬ 
re. 

Legge la dir. con i soli file il cui 
nome comincia con GAME. 
Esempio: GAMES, GAME X 
64. 

Legge la dir. con solo il file seq. 
di nome BOOT, se è presente. 
Legge la dir. con solo i file pro¬ 
gramma. 


Tabella I. Alcuni esempi sulle possibili sintassi del 
comando di lettura della directory di un disco. E neces¬ 
sario specificare il numero della periferica. 
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terli riconoscere facilmente all'interno di una direc¬ 
tory, senza correre il rischio di confonderli con altri 
file magari con lo stesso nome. È infatti possibile 
tenere su disco dei file con nomi simili, ma suffissi 
diversi, come: 


BYTE CONTENUTO DESCRIZIONE 

0 

18 

Tracci* dal primo blocco della dir. 

1 

1 

Settore del primo blocco della dir. 

2 

63 

*0' Indicatore del formato di reg. 

3 

0 

Flag per usi futuri. 

4 


BftM - BlocK Availablity Map. 

143 







Nome del disco. 

161 



162-163 


Identlf icatore disco. 

164 

160 


165 

30 

•2’ 



versione DOS 

166 

63 

'A • 

167 

i 

i 


inut i 1 izzati 

255 

1 


Figura 1. Descrizione de! Blocco 18.0 (directory) di un 

disco. 





ARCHIVIO OPRO (il programma di gestione archi¬ 
vio): 

ARCHIVIO I RF.L (l’archivio vero e proprio); 
ARCHIVIO 2 SI'.Q (la mappa di record liberi e occu¬ 
pati); 

ARCHIVIO .? USR (l’indice sequenziale delle chiavi). 

Protezione disco. Quando un disco contiene dati mol¬ 
to importanti, di solito lo si protegge dalla scrittura 
coprendo la tacca laterale con delle linguette adesive 
fornite in tutte le confezioni di dischi. Si ricorre a 
questo metodo anche per proteggere dischetti ormai 
pieni di programmi e che non si vogliono più altera¬ 
re. Pur essendo una protezione efficace, la linguetta 
ha il difetto di poter essere rimossa, magari da altre 
persone che non conoscono l’importanza del conte¬ 
nuto di un floppy. 

Per evitare di correre questi rischi vi è un sistema 
software che permette di proteggere un disco dalla 
scrittura in modo “permanente”. Prima di vedere 
come realizzare questa protezione va sottolineato 
che un disco protetto come ora spiegheremo non può 
più essere modificato in alcuna maniera, se non for¬ 
mattandolo di nuovo. Andrà perciò impiegata anche 
la linguetta, per proteggerlo contro la formattazione. 

Su tutti i dischi formattati dal drive 1541 (o 1540) 
la traccia 18 contiene le informazioni relative al disco 
e alla directory. In particolare il blocco 18,0 (traccia, 
settore) contiene le informazioni riportate in figura 
1 . 

Il terzo byte di tale blocco contiene un codice (nel 
nostro caso la lettera A), che comunica al drive in che 
formato è stato registrato il disco. Il drive 1541 pone 
in questa locazione la lettera “A” e tutte le volte che 


Listato 1. Programma per la protezione di un disco dalla scrittura. 

t rem ************************************* 

2 REM ROUTIf'E PROTEZIONE DISCO DA SCRITTURA 

3 REM ************************************* 

7 REM **** ENTRY POINT DELLE ROUTINE #** 

10 REM *** APERTURA CANALE AD ACCESSO DIRETTO 
20 OPEN 15,8,15,"10*!0PEN2,8,2, 

30 PRINT#15,"Uls2,0,18,0":REM *** LETTURA PRIMO BLOCCO DIRECTORY 
40 PRINT#15,"B-P: 2,2": REM *** POSIZIONA PUNTATORE SUL BYTE DI FORMATO 
50 PRINT#2 ,"Z" ! SREM *** CAMBIA IL FORMATO 

60 PRINT#15,"U2 52,0,18,0”!REM *** RISCRIVE IL BLOCCO SUL DISCO 
70 PRINT#15,“10":CLOSE15 :CL0SE2! REM *** FINE 
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La biblioteca dei Jacksoniani 



IL JACKSONI ANO 
UCCE IL MEMO 
RISPARMIANDO N. 20% 

Jackson è il più importante Gruppo Editoriale dell'era informatica ed 

elettronica. 

La Biblioteca Jackson, unica in Italia, comprende oggi oltre 150 titoli. 

Stacca queste pagine. Li troverai divisi per "famiglie", e ci sono tantissimi 
titoli nuovi. Tutti questi volumi approfondiscono gli argomenti già 
contenuti nei periodici Jackson, sono complementari con essi. Troverai 
manuali per neofiti ma anche testi di fondamentale importanza per i 
tecnici e gli operatori. Una biblioteca che Jackson ha realizzato lavorando 
fianco a fianco con gli specialisti dei vari settori e il contributo di grandi 

Centri di Ricerca. 

Leggi Jackson, potrai scegliere tutto il meglio del campo che più ti 
interessa; e in più, se sei un abbonato alle riviste, risparmi il 20% sul 
prezzo di copertina dei libri fino al 28-2-85 e il 10% per l'intera durata 

dell'abbonamento! 



GRUPPO 

EDITORIALE 

JACKSOH 






La biblioteca 

JACKSON, TU 
SUI PERSONAL E 


GUIDE PRATICHE 


NOVITÀ' 

FACILE GUIDA AL COMMODORE Ó4 

Una guida che vi insegnerà in poche ore a usare il C64 e le sue periferiche. 
140 pag. L. 12.500 Cod. 400D 

NOVITÀ' 

COMMODORE 64:1 FILE 

Un testo completo sull'argomento "file", per chi vuole conoscere o fondo il 
Commodore 64 e farne il miglior uso possibile. 

180 pag. L. 17.000 Cod. 4O0B 

NOVITÀ' 

UN PERSONAL COMPUTER FIRMATO IBM 

Per fare subito omicizia con il Personal Computer IBM: hordwore, applicazio¬ 
ni, programmazione, sistemi operativi. 

156 pog. L. 13.000 Cod. 404H 

NOVITÀ' 

MACINTOSH 

Tutto Mac. 120 applicazioni, o meglio, 120 idee presentate "per immagini", 
usando mouse, icone, menù. 

150 pag. L. 30.000\Cod. 4020 

NOVITÀ" 

ALLA SCOPERTA DELL’APPLESOFT 

Il BASIC 6 ormai diventato un linguaggio internazionale; questo volume 
insegna a utilizzarlo correttamente nei programmi. 

140 pag. L. 12.500 Cod. 400H 

NOVITÀ' 

M20: LA PROGRAMMAZIONE - BASIC E PCOS 

Un libro completo sul personal italiano più famoso; il togli» didattico ne fa uno 
strumento utilizzabile direttamente dagli studenti. 

360 pag. I. 30.000 Cod. 401 A 

NOVITÀ’ 

IL PRIMO LIBRO PER M24 

Una presentazione ad ampio raggio del nuovo computer Olivetti; lo configua- 
zione, gli utenti a cui è destinato, il software. 

150 pag. L. 26.000 Cod. 401P 

NOVITÀ" 

IL BASIC IN 30 ORE PER SPECTRUM 

Per programmare non basto conoscere un linguaggio ma occorre anche 
possedere una "professionalità"; è il presupposto di questo corso di alto 
valore didattico. 

530 pag. L. 40.000 Cod. 501B 


APPLE TUTTO FARE 

il libro spiega, anche ai più digiuni di elettronico, come si progettano e 
reolizzono le applicazioni di controllo con calcolatore. 

210 pog. L. 18.000 Cod. 334D 

GUIDA AL SINCLAIR ZX81-ZX80 E NUOVA ROM 

Per avvicinarsi all'informatica e apprendere i segreti della programmazione 
in BASIC 

262 pag. L. 16.500 Cod. 318B 
APPLE II GUIDA ALL'USO 

Per imparare a conoscere e usare uno dei sistemi più diffusi al mondo 

400 pag. L. 26.000 Cod. 331P 

INTRODUZIONE AL MICROCOMPUTER 

Voi. 0 - Il libro del principiante. 

240 pag. L. 16.000 Cod. 304A 

Voi. I - Il libro dei concetti fondamentali. 

320 pog. L. 18.000 Cod. 305A 

IL BASIC DEL PET E DELL'M20 

Un validissimo supporto e strumento di lavoro per chiunque voglio o debbo 
imporore a programmare in BASIC con un Commodore o un Olivetti M20 
232 pag. I. 16.000 Cod. 336D 

IMPARIAMO A PROGRAMMARE IN BASIC CON IL VIC/CBM 
176 pag. L. 12.500 Cod. 507A 

IMPARIAMO A PROGRAMMARE IN BASIC CON IL PET/CBM 

L'informatica a disposizione di tutti, senza inutili teorizzazioni e tanta pratica. 
180 pag. I. 11.50ÓCod. 506A 
INTERFACCIAMENTO DELL'APPLE 

Il libro indispensabile a un uso "esterno" dell'APPLE: controllo di dispositivi, 
temperature, soglie luminose, liquidi ... 

208 pog. L. 14.000 Cod. 334B 

PROIBITOI COME AVER CURA DI UN COMPUTER 

Tutto quello che bisogna sopere per non mandare in tilt un calcolatore 
208 pag. L. 14.000 Cod. 333D 

APPLE-MEMO 

Sintassi dei comandi, codici caratteri, messaggi di errore, linguaggio macchi¬ 
na e tante altre utili informozioni. 

150 pog. L. 15.000 Cod. 340H 

LA PRATICA DELL'APPLE 

L'Apple è un personal computer dalle infinite risorse. Questa volume, suddivi¬ 
so in 3 facili ed esaurienti capitoli, insegna come sfruttarle al massimo. 

130 pag. L. 10.000 Cod. 341D 

ALLA SCOPERTA DEL VIC 20 

Un libra chiave indirizzato agli utenti BASIC del VIC e a chi vuole approfondi¬ 
re anche l'aspetto hordwore e di questo diffusissimo personal computer. 
308 pag. L. 22.000 Cod. 338D 



VisiCalc 


NOVITÀ' 

PROGRAMMAZIONE DELLO ZX SPECTRUM 

Potete porlire do ' "zero", con lo Spectrum davan¬ 
ti e questo libro di fianco, e ben presto il vostro 
calcolatore non avrà più segreti per voi. 

204 pag. L. 18.000 Cod. 531D 


Il BASIC 
NEGL] AFFARI 


facile 


alla 

...SCOPERTA 
DELL’APPLESOFT 


VOI E IL VOSTRO COMMODORE 64 

Un ricco ed esauriente vademecum sulla pro¬ 
grammazione in BASIC del Personal che va 
oggi per la maggiore. 

256 pog. L. 22.000 Cod. 347D 

l'HOME COMPUTER TI 99/4A 

Dal BASIC,, per chi si avvicina per lo prima 
volta ol computer, alla spiegazione dell'ar¬ 
chitettura del TI 99/4A, per i già esperti di 
programmazione. 

186 pag. L. 15.000 Cod. 343B 
PET/CBM GUIDA ALL'USO 
Voi. I - Impiego dei calcolatori CBM, elabo¬ 
razione di testi "editing ", programmazione 
dei CBM e caratteristiche. 

256 pog. L. 20.000 Cod. 332P 

Voi. Il - Unità periferiche, informozioni sul 

sistema CBM, BASIC CBM. 

288 pog. L. 22.500 Cod. 333P 


COMMODORE 64 - IL BASIC 

Accurata esposizione del linguaggio BASIC. 
Un libro di programmi per imparare a prò- 
rammare. 

4 pag. L. 26.000 Cod. 348D 


E 
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ITO IL MEGUO 
HOME COMPUTER. 


PROGRAMMI 


LINGUAGGI 
DI PROGRAMMAZIONE 


NOVITÀ 1 

DIDATTICA CON IL PERSONAL COMPUTER 

L'utilizzo del personal da parte dell'insegnante come strumento didattico. Per 
scuola di ogni ordine e grado. 

160 pag. L. 24.000 Co d. 400A 

NOVITÀ 1 

CONOSCI TE STESSO ATTRAVERSO IL TUO PERSONAL COMPUTER 

Grafologia, numerologia, oroscopo computerizzato, Q.l. e fondamenti della 
personalità girono sul tuo personal, insegnandoti, nello stesso tempo, a pro¬ 
grammare. 

136 pag. L. 13.000 Cod. 401D 

NOVITÀ 1 

SPECTRUM TOOL 

Una serie di interessanti programmi BASIC che si servono di routine scritte in 
linguaggio macchino. 

180 pag. L. 15.000 Cod. 554D 

NOVITÀ 1 

IL LIBRO DEI GIOCHI DEL COMMODORE 64 

Un testo avvincente che vi insegna a sfruttare la sorprendente grafico, gli 
sprites e le capacità musicali del famoso personal. 

150 pag. L. 13.000 Cod. 349D 

PROGRAMMI E APPLICAZIONI PER LO ZX SPECTRUM - 60 GIOCHI 

60 "video-avventure' da vivere insieme olio ZX Spectrum e in più molti altri 
programmi utili. 

116 pag. L. 9.000 Cod. 558D 

66 PROGRAMMI PER ZX81 E ZX80 CON NUOVA ROM -l- HARDWARE 

Come sfruttare tutte le capacità degli ZX e, addirittura, moltiplicarle. 

144 pag. L. 12.000 Cod. 520D 

50 ESERCIZI IN BASIC 


NOVITÀ 1 

PRIMI PASSI IN BASIC 

Imparare il BASIC studiando i programmi: un facile e divertente approccio 
all informatica. 

48 pag. L. 6.500 Cod. 403D 

NOVITÀ 1 

METODI DI REALIZZAZIONE DEI PROGRAMMI 

Un testo che propone ! più moderni melodi di creazione dei programmi. 

98 pag. L. 10.000 Cod. 401H 

NOVITÀ 1 

INTRODUZIONE ALLA PROGRAMMAZIONE 

Un manuale didattico divertente per chi inizia a programmare in BASIC su un 
Personal. 

48 pag. L. 6.500 Cod. 405D 
NOVITÀ’ 

GUIDA ALLA SCELTA DEL COMPUTER 

Come scegliere lo macchino e il software adatti a rendere più produttiva la 
proprio attività. 

128 pag. L. 12.000 Cod. 400P 

NOVITÀ 1 

CONOSCERE IL PERSONAL COMPUTER 

Per entrare subito nel mondo dei microcomputer e dei chip, e imparare 
sorridendo. 

48 pag. L. 6.500 Cod. 406D 
NOVITÀ 1 

GIOCHI CON IL COMPUTER 

Un originale manuale di videogiochi visti dalla porte del computer per rispon¬ 
dere olio domanda: "ma come fa? 

48 pog. L. 6.500 Cod. 404D 



Una raccolta completa e progressiva di esercizi matematici, gestionali, ope¬ 
rativi, statistici, di svogo. 

208 pog. L. 13.000 Cod. 521A 

GIOCARE IN BASIC 

Il gioco come metodo d'apprendimento del BASIC e dei microcomputer. 
324 pag. L. 20.000 Cod. 522A 

PROGRAMMI PRATICI IN BASIC 

Programmi di tipo finanziario, matematico, scientifico, manageriale ... già 
pronti e sperimentati. 

200 pag. L. 12.500 Cod. 550D 

77 PROGRAMMI PER SPECTRUM 

Dallo Grafico olla Business Grafica, dallo musico alle animazioni, dai giochi 
all'Elettronico ... tutte le possibilità offerte dallo Spectrum. 

150 pog. L. 16.000 Cod. 555A 

75 PROGRAMMI IN BASIC PER IL VOSTRO COMPUTER 

Programmi sperimentati e pronti da usare, oppure da rieloborore, ampliare, 
modificare, assemblare. 

196 pag. L. 12.000 Cod. 551D 

SOLUZIONI DI PROBLEMI IN PASCAL 

Un approccio disciplinato alla soluzione di problemi col calcolatore e un 
modo garantito di imparare a programmare. 

450 pag. L. 28.000 cod. 512P 

PROGRAMMI SCIENTIFICI IN PASCAL 

Per costruirsi una "libreria" di programmi in grado di risolvere i più frequenti 
problemi scientifici e ingegneristici. 

384 pag. L. 25.000 Cod. 554P 

SINFONIA PER UN COMPUTER VIC 20 

Giocore è il modo più semplice e divertente per imparare a usare 
un computer. Un libro di games che riesce a coprire tutto la gamma 
di prestazioni del VIC. 

128 pag. L. 10.000 Cod. 563D 

GIOCHI, GIOCHI, GIOCHI PER IL VOSTRO VIC 20 

Un libro pieno di eccitanti scoperte per tutti coloro che posseggono un VIC 
e tanto voglia di divertirsi. 29 programmi di giochi interessantissimi. 

116 pag. L. 9.000 Cod. 557D 

BASIC SU APPLE 

Programmi in pochi minuti: dall'economia domestica" alle 
applicazioni commerciali, dai colcoli statistici 
alla creazione degli archivi. 

184 pag. I. 14.000 Cod. 532H 


NOVITÀ 1 

PERSONAL GRAPHICS 

Il libro dello grafica col computer, dai disegni statici ai cartoni animati. 
Fantasia e tecnologia. 

170 pag. L. 17.000 Cod. 555D 

NOVITÀ' 

PROGRAMMAZIONE STRUTTURATA 

Questo corsodi autoistruzione insegna i principi fondamentali della program¬ 
mazione strutturata. 

136 pag. L. 11.000 Cod. 503A 

IL BASIC E LA GESTIONE DEI FILE 
Voi, I - metodi pratici 

Dai BASIC microsoft, ai metodi. 

? rotici, oi messaggi d'errore. 

64 pag. L. 11.000 Cod. 515H 
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NOVITÀ' 

IL BASIC E LA GESTONE DEI FILE • Voi. Il 

Un manuole per II professionista o il manager che vogliono risolvere in "tempo 
reale" i loro problemi di gestione degli archivi. 

164 pog. 1.14.000 Cod. 516H 

PROGRAMARE IN BASIC 

Caratteristiche e peculiarità del BASIC applicato o: Apple, PET, TRS80. 

94 pog 1.8.000 Cod. 513A 

COME PROGRAMMARE 

Tutte le fasi di una corretto programmazione in BASIC o in qualsiasi altro 
linguaggio. 

19? pag. 1.12.000 Cod. 511A 
INTRODUZIONE AL BASIC 

Tecnica e pratica in un libroche costituisce un vero e completo corso di BASIC. 
314 pog. f. 21.000 Cod. 502A 


DAL FORTRAN IV AL FORTRAN 77 

Per chi deve programmare a livello tecnico scientifico e per chi vuole appro¬ 
fondire le conoscenze del linguaggio. 

266 pog. 1.18.000 Cod. 517P 

CP/M con MP/M 

Un libro destinato a rendere semplice l'uso del CP/M e automaticamente, 
quello dei microcomputer. 

320 pog. I. 22.000 Cod. 510P 

IL FORTH PER VIC 20 e CBM 64 

Lo programmozione in FORTH e lo suo implementazione sul Commodore VIC 
20 e CBM 64. 

150 pog. L. 11.000 cod. 527B 
PROGRAMMARE IN ASSEMBLER 

Il monuale pratico che aspettavano hobbisti e utenti di personal computer. 
160 pag. L. 10.000 Cod. 329A 


IL BASIC PER TUTTI 

Per i neofiti una facile e immediato introduzione ol linguaggio BASIC e al 
mondo dei calcolatori. 

264 pag. L. 17.500 Cod. 525A 

PROGRAMMARE IN PASCAL 

Tutti i vantaggi di un linguaggio sempre più importante e diffuso. 

208 pag. L. 14.000 Cod. 514A 

INTRODUZIONE AL PASCAL 

Per conoscere, copire, usare il linguaggio destinato a spodestare il FORTRAN, 
l'ALGOL, il PL/I ecc. 

484 pag. L. 30.000 Cod. 516A 

IMPARIAMO IL PASCAL 

Consigli, problemi, esercizi per l'autoapprendimento del PASCAL. Divulga¬ 
zione senza pedanterie. 

162 pog L. 11.500 Cod. 501A 

PASCAL - MANUALE STANDARD DEL LINGUAGGIO 

Dagli Autori del Pascal, il '"libro" sul Pascal. 

186 pog. L. 11.500 Cod. 500P 


IL PERSONAL PER ILMANAGER 


NOVITÀ' 

IL BASIC NEGLI AFFARI 

Un libro che porta il BASIC sullo scrivania dei manager per le tipiche opplico- 
zioni da ufficio. 

192 pag. I. 15.000 Cod. 402H 

NOVITÀ' 

LA GESTIONE AZIENDALE CON IL BASIC 

Come accedere direttomente al calcolatore e ottenere elementi di analisi, 
pionificazione e controllo utili per decidere. 

192 pag l. 15.000 cod. 403H 

NOVITÀ' 

EPSON HX20 

Il BASIC e 46 programmi. Più che un dedicato alle caratteristiche e alle 
possibilità del potente computer portatile. 

232 pag. L. 20.000 Cod. 345D 



VISICALC 

Il "foglio elettronico ", come supporto alle attività contobili e gestionali, 6 uno 
delle opplicazioni più interessanti dei Personal Computer. 

192 pog. L. 15.000 Cod. 556H 


/ 
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PROGRAMMI DI MATEMATICA E STATISTICA 

Come acquistare la logica necessario a risolvere con metodo, senza perdite di 
tempo, i problemi con il calcolatore. 

228 pag. I. 16.000 cod. S52D 

OLIVETTI MIO - GUIDA ALL'USO 

Un manuale "veloce" per gii utenti del portolile MIO. Presento con chiarezza 
il BASIC e i progrommi applicativi. 

170 pag. L. 15.000 Cod. 401B 

PROGRAMMI UTILI DEL BASIC PER IBM PC 

65 programmi ampiamente collaudati e pronti all uso; dalla finanza ol bilan¬ 
cio familiare, dalla gestione commerciale ai beni Immobili, dall'analisi olio 
registrazione doti. 

192 pag. L. 15,000 Cod. 564D 


DATA PROCESSING 
E TELEMATICA 


NOVITÀ' 

TRASMISSIONE DATI 

L'hardware e il software della trosmissione delle Informazioni, per I tecnici ma 
anche per gli hobbisti. 

299 pag. L. 23.000 Cod. 528P 

SISTEMI ELETTRONICI DI STAMPA LASER 

Stompa laser nel mondo EDP, Edltorio Elettronica nei centri stampa, unitó 
terminali per stampa remoto ed editoria distribuito _. 

210 pag . L 17.000 Cod. 614P 


TELEMATICA 

Dol viewdata all'office automotion, un panorama dei problemi teorico- 
pratici di questa nuovissima disciplino. 

286 pog. l. 19.000 Cod. 518D 

COMPUTER GRAFICA 

L'Immagine come informazione e il calcolatore come produttore d'immoaine 
174 pog. L. 29.000 Cod. 519P 

DIZIONARIO DI INFORMATICA 

15000 termini inglese-italiono-tedesco; italiano-inglese; tedesco-malese 
920 pag. I. 55.000 Cod. 100H 

PRINCIPI E TECNICHE DI ELABORAZIONE DATI 

Per l'autoopprendimento dei principi basilari di flusso e gestione nei sistemi di 
elaborazione. 

254 pog l. 17.000 Cod. 309A 

NOVITÀ' 

ODISSEA INFORMATICA 

L 'informatizzazione' della società e i suoi riflessi sulle pubbliche istituzioni in 
uno ricerca ihe esplora temi "orwelliani", 

620 pog. L. 58.000 Cod. 800P 

VOI E L'INFORMATICA 

In 100 tavole gli strumenti dell'informatica, l'informatico e l'Azienda, realtà e 
prospettive tecnologiche in modo sintetico, rigoroso ma completo. 

116 pog. L. 15.000 Cod. 526A 



LE GRANDI OPERE JACKSON 


E.l. Enciclopedia di Elettronica e Informatica 

Realizzata in collaborazione con il Learning Center Texas Instruments 
7 volumi: Elettronico di Bose - Comunicazioni - Elettronica Digitale Voi. I e II - 
Microprocessori - Informatico di Base - Informatica e Società 
+ 1 volume di Elettrotecnico 

1600 pagine complessive - 700 foto e 2200 illustrazioni o colori 
Prezzo dell'opera L. 350.000 (Abb. L. 315.000) Cod. 158A 
N.B. - Sulle grondi opere Jackson lo sconto abbonati è del 10% 


ABC Personal Computer 

Corso programmato di BASIC. 

2 volumi di HARDWARE e di SOFTWARE; 1 volume di Computer-Test con 24 
test dei principali personal, stampanti e plotter disponibili in Italia; 1 Diziona¬ 
rio di Informatico. 

800 pagine complessive. Centinaia di foto e disegni acolori. Volumi rilegati in 
similpelle. 

Prezzo dell'opera L. 150.000 (Abb. L. 135.000) Cod. 160A 
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ELETTRONICA DI BASE 


CORSO DI ELETTRONICA FONDAMENTALE 

Un testo di alto valore didattico, per capire l'elettronica della teoria atomica 
ai transistori 

448 pag, L. 17.000 Cod. 201A 

COMPRENDERE L'ELETTRONICA A STATO SOLIDO 

12 lezioni complete ed esaurienti a cura del learning Center Texas Instruments 
224 pag. L. 16.000 Cod. 202A 

CORSO PROGRAMMATO DI ELETTRONICA ED ELETTROTECNICA 

In 40 fascicoli monografici, di 2700 pagine complessive, i concetti fondamen¬ 
tali di elettrotecnica ed elettronica di base dalla teoria atomico all'elabora¬ 
zione dei segnali digitoli. 1000 lezioni con domande, risposte, esercizi, test... 

L 109.000 Cod. 099A 

INTRODUZIONE Al CIRCUITI INTEGRATI DIGITALI 

Un'introduzione pratica che demistifica molti luoghi comuni e rende accessibi¬ 
le a tutti l orgomento 
112 pag. L. 8.000 Cod. 203A 

ELETTRONICA INTEGRATA DIGITALE 

Un testo didattico chiaro, completo, moderno, con oltre 400 problemi, dedica¬ 
to a specialisti e studenti. Fondamentole. 

720 pog. L. 38.000 Cod. 204A 


PROGRAMMAZIONE DELLO Z80 

Un corso sistematico per imparore la programmazione in linguaggio Assem¬ 
blea usando lo Z-80 
530 pag. L. 26.000 Cod. 328D 

NANOBOOK Z80 

I nanocompuler NBZ80 e NBZ80S usati come strumenti didottici, per imparare 
il softwore, per affrontare i problemi e le tecniche di interfocciamento con 
CPU, PIO, CTC. 

Voi. I • Tecniche di Programmazione - 256 pog. L 17.000 Cod. 310P 
Voi. Ili • Tecniche di interfacciamento - 464 pag. L. 20.000 Cod. 312P 

IL BUGBOOK VII 

l'interfacciomento fra microcomputer e convertitori analogici. Esperimenti 
per sistemi 8080/A - Z80 - 8085 

272 pog L. 17.000 Cod. 007A 

TECNICHE D'INTERFACCIAMENTO DEI MICROPROCESSORI 

I concetti, le tecniche di base, i componenti per assemblare un sistema 
400 pog. L. 25.000 Cod. 314P 

LA PROGRAMMAZIONE DELLO Z8000 

L'architettura e il funzionamento, nonché molti esempi di programmi dello 
Z8000 

302 pog. L. 25.000 Cod. 321D 

PROGRAMMAZIONE DELLO Z80 E PROGETTAZIONE LOGICA 

Linguaggio ossembly e logico digitale, più alcune efficienti soluzioni per 
spiegare l'uso corretto del microprocessore 
400 pag. L. 21.500 Cod. 324P 


MICROPROCESSORI 
E INTERFACCIAMENTO 


USARE IL MICROPROCESSORE 

L'utilizzo più razionale del microprocessore nel controllo di impianti e processi 
296 pog. L. 17.000 Cod. 327A 

MICROPROCESSORI 

Dai Chip ai Sistemi. I concetti, le tecniche e i componenti riguardanti il mondo 
dei microprocessori. 

384 pog. L. 25.000 Cod. 320P 


PROGRAMMAZIONE DEL 6502 

Un testo outonomo e completo per imparare la programmazione in linguag¬ 
gio Assembley 

390 pag. L. 25.000 Cod. 503B 
GIOCHI CON IL 6502 

Tecniche di programmazione avanzate e loro sperimentazione attraverso il 
modo pratico e divertente dei giochi 
312 pag. L. 19.500 Cod. 505B 

ESPERIMENTI CON TTL E 8080A 

Elettronica digitale, tecniche di programmazione e interfacciamento dei mi¬ 
crocomputer 

Voi. I • 496 pog. I. 22.000 Cod. 005A 
Voi. Il - 490 pag. L. 22.000 Cod. 006A 


I MICROPROCESSORI E LE LORO APPLICAZIONI: SC/MP 

La soluzione dei classici problemi che si presentano nella progettazione con 
sistemi a microprocessore 
158 pag. I. 11.000 Cod. 301D 

Z80 PROGRAMMAZIONE IN LINGUAGGIO ASSEMBLY 

Le funzioni ossembler, le istruzioni ossembly, i concetti di sviluppo del software 
640 pag. L. 34.000 Cod. 326P 


PROGRAMMAZIONE DELL'8080 E PROGETTAZIONE LOGICA 

Implementazione della logica sequenziale e combinatoria, e uso del linguag¬ 
gio ossembly, all interno di un sistemo basato sull'8080 
296 pog. I. 19.000 Cod. 325P 

APPLICAZIONI DEL 6502 

Le tecniche e i programmi per opplicozioni tipiche del 6502 e dei sistemi su di 
lui basati 

214 pag. L. 15.500 Cod. 504B 
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TEA, UN EDITOR ASSEMBLER RESIDENTE PER L'8080/8085 

Un valido contributo per scrivere e modificare programmi sorgente scritti in 
assembley secondo i codici mnemonici dei due microprocessori 
252 pag. L. 14.000 Cod. 322P 



DBUG 

Un programmo Interprete per la messa o punto del software 8080 
112 pag. L. 7.000 Cod. 313P 

8080A/8085 • PROGRAMMAZIONE IN LINGUAGGIO AS¬ 
SEMBLY 

Un manuale teorico-pratico per tecnici, studenti, appassionali 
che vogliano approfondire le loro conoscenze nel settore dei 
microcomputer 

512 pag. L 27.500 Cod. 323P 

INTERFACCIAMENTO DI MICROCOMPUTER 

Esperimenti utilizzanti il CHIP 8255 PPI, interfaccia periferica 
programmabile della famiglio 8080 
220 pag. L. 12.000 Cod. 004A 

CAPIRE I MICROPROCESSORI 

Funzioni, memorie ROM e RAM, interfacce ... lutto quello che 
bisogna conoscere su tecnologie e opplicozioni dei micropro¬ 
cessori 

126 pag. L. 10.000 Cod. 342A 











dei Jacksoniani 

UETTRONKA 
OSa DAVVERO. 


COMPONENTI, PROGETTI, 
APPLICAZIONI 


NOVITÀ' 

MANUALE DI OPTOELETTRONICA 

Un valido supporto per i progettisti elettronici, per realizzare schemi pratici, 
economici e affidabili. 

207 pag. L. 15.000 Cod. 613P 


LA SOPPRESSIONE DEI TRANSITORI DI TENSIONE 

Cause, effetti, rimedi ai danneggiamenti, dei transitori d alta tensione 
224 pag. L 12.000 Cod. 61 IH 

LE COMUNICAZIONI RADIO IN MARE . . 

Come orientarsi grozie olla moderno strumentozione e ai suoi codici 
200 pag. L 15.000 Cod. 706A 

MANUALE PRATICO DEL RIPARATORE RADIO TV 

I segreti di un'esperienza ventennale messi al servizio di tutti 
352 pog. 1.23.000 Cod. 701P 


NOVITÀ’ 

FIBRE OTTICHE 

La teoria, i componenti base e gli impieghi pratici delle fibre ottiche affrontati 
in modo chiaro ed esauriente. 

192 pag. L. 15.000 Cod. 614A 

DAL TRANSISTOR AL MICROPROCESSORE 

La moderno circuiteria a stoto solido, lo sua evoluzione, le sue prospettive. 
80 pag. L. 7.500 Cod. 141A 

MANUALE PRATICO DI PROGETTAZIONE ELETTRONICA 

Per hobbisti, dilettanti, sperimentatori e ingegneri alle prese con la compren¬ 
sione e l'uso dei circuiti elettronici. 

488 pag. L. 30.000 Cod. 205A 

CIRCUITI LOGICI E DI MEMORIA 

Un approccio diretto al mondo dell'elettronica digitale 
Voi. I - 384 pag. L. 22.000 Cod. 001A 
Voi. Il - 352 pag. L. 22.000 Cod. 002A 

I TIRISTORI - 110 PROGETTI PRATICI 

Dal controllo della luminosità delle lampade a quello (automatico) di stufe, 
dalla velocitò dei motori elettrici ai sistemi antifurto ... 

144 pag. L. 9.000 Cod. 6060 

MANUALE DEGLI SCR, TRIAC ED ALTRI TIRISTORI - Voi. I 

Una guido alle applicazioni di questa famiglia di dispositivi a semiconduttore 
378 pag. L. 24.000 Cod. 612P 

PROGETTAZIONE CIRCUITI PII 


IMPIEGO PRATICO DELL’OSCILLOSCOPIO 

Come funziona e come usare - con facilità e precisione - questo indispensabile 
strumento. 

112 pog. L. 16.000 Cod. 705P 


AUDIO & HI-FI 

Una guido preziosa per conoscere I HI-FI 
128 pag. L. 7.000 cod. 703D 

MANUALE PRATICO DI REGISTRAZIONE MULTIPISTA 

Regole generali, problemi, soluzioni e termini gergali 
164 pag. L 10.000 Cod. 704D 


OLTRE L’ELETTRONICA 


MICROPROCESSORI AL SERVIZIO DEL MANAGEMENT 

CAD/CAM e robotica: la loro applicazione in Azienda, I impotto su quolitò e 
produttività, le prospettive. 

292 pog. L. 20.000 Cod. 335H 

COMPUTER GRAPHICS, CAD, ELABORAZIONE D'IMMAGINI: SISTEMI 
E APPLICAZIONI . 

Linguaggi e algoritmi, sistemi grafici, integrazione CAD/CAM, didattica e 
formazione professionale. 

512 pag. L. 45.000 Cod. 529C 



L'oscillatore controllato in tensione, i sintetizzatori digitali di frequenza, i 
circuiti integrati monolitici ... 

256 pog. L. 16.000 Cod. 604A 

LA PROGETTAZIONE DEI FILTRI ATTIVI 

Attraverso una vosto gamma di tavole e grafici una pratico esemplificazione 
di come si costruiscono i filtri attivi 
280 pog. L. 17.000 Cod. 603B 

GUIDA Al CMOS 

22 utili esperimenti per passare dalla logica TTL o quella CMOS 
220 pog- 1» 17.000 Cod.605B 

GLI AMPLIF~ ator , d , NORT on QUADRUPLI IM 3900 E LM 359 

Teorìa, *p® r %fci2Ìone « ... pratica attraverso 22 esperimenti realizzati 
posso passo 

480 pog. L. Cod 610B 
IL TIMER 555 . ^ 

Cos è e come q ue sto onnipresente temporizzotore integroto 

172 pag. I- ' ow \d.601B 


MICROELETTRONICA: NUOVA RIVOLUZIONE INDUSTRIALE 

I come e i perchè della nuova rivoluzione industriale e lo scenario tecnico* 
economico-sociale del prossimo ventennio. 

180 pag. L. 11.500 cod. 315P 


£ "&*5&2** CIRCUITI OP-AMP 

Gli schemi 01 c f ticamen tali che costituiscono le unità di base 

gi’STL.TrSSoc^ 

OPERAZIONALI 

guidamondiale dei i |STOR| ad EFFmo CAMpo 
JFET E mus ^ ^ ^ 

Conoscere subit sign l,e un ,r °nsistore, di un amplificatore 

operor'O' 1 . ^gpormiore tempo, denaro e fatico 

80 pag L. 1t- 3UV '■» 
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pagine servirsi di questa Cedola di 
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IL PERSONAL 

PER IL MANAGER_ 

IL PRIMO LIBRO PER M24 

Una prima presentazione del nuovo calcolatore 
Olivetti M24, con la descrizione del sistema ope¬ 
rativo MS DOS e del linguaggio GW BASIC. 

pag. L 18.000 Cod. 401 P 

GUIDE PRATICHE_ 

OLIVETTI MIO: guida all’uso 

Una guida all'uso e alla programmazione BASIC 
del portatile Olivetti, ma anche una precisa fonte 
di idee e di possibili applicazioni. 

192 pag. L 18.000 Cod. 401 B 

DATA PROCESSING 
E TELEMATICA_ 

I TERMINI DELL’INFORMATICA E 
DELLE DISCIPLINE CONNESSE 

Uno strumento di consultazione indispensabile per 
chiunque operi, a qualsiasi livello, nel settore 


dei computer, per leggere manuoli, depliant, ma 
anche per interpretare i messaggi che lo stesso 
computer propone sullo schermo 

544 pag. L 50.000 Cod. 101 H 

PROGRAMMI_ 

PERSONAL GRAPHICS 

A metà strada fra la favolo, il romanzo realista 
mode in USA e un libro per tecnici, il libro presento 
un'interessante e 'sofferta"’ gamma di programmi 
di grafica per Personal Computer, in cui fantasia e 
tecnologia si fondono in un connubio piuttosto sti¬ 
molante. 

170 pag. L 17.000 Cod. 555 D 

CONOSCI TE STESSO TRAMITE 
IL TUO PC 

Un invito a conoscere se stessi attraverso l'impar¬ 
zialità elettronica del proprio Personal Computer, 
ma anche il proprio Personal Computer attraver¬ 
so se stessi. 

136 pag. L. 11.000 Cod. 401 D 
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Alcune scoperte 
sul Drive 1541 


accede al disco in scrittura controlla tale codice. Se vi 
trova un altro carattere, ritiene che il disco sia stato 
preparato da un drive diverso e abortisce l’operazio¬ 
ne di scrittura. 

Il programma 1 non fa altro che sostituire alla “A” 
un’altra lettera. È sufficiente inserire il disco da pro¬ 
teggere nel drive e dare il RUN. Da questo momento 
ogni tentativo di scrittura sul disco protetto darà 
l’errore: 73, CBM DOS V2.6 1541. 


Qualcosa in più sul BASIC 

Spesso accade di non usare completamente le ri¬ 
sorse messe a disposizione da una macchina. Ecco 
alcuni comandi che vengono trascurati, pur essendo 
utilissimi al programmatore. 

L’istruzione WAIT. Una delle istruzioni più ignorate 
del BASIC V.2.0 è senz’altro quella di WAIT. Eppu¬ 
re questa istruzione, che permette attese condiziona¬ 
te al presentarsi di qualche evento, consentirebbe di 
eliminare i lunghi, e purtroppo molto frequenti, cicli 
di attesa del tipo: 


10 PRINT “PREMI UN TASTO PER CONTI¬ 
NUARE” 

20 GET A$: IF A$=“” THEN 20 


La sintassi del WAIT è: 


WAIT locazione, maschera 1 (,maschera 2). 

La sua funzione è di fermare l’esecuzione di un 
programma ed attendere (“wait” in inglese) che il 
contenuto della locazione specificata assuma i valori 
indicati dalla maschera 1. 

La maschera I (ed anche la 2) devono essere consi¬ 
derate in forma binaria. In effetti, tra il contenuto 
della locazione e il valore della maschera 1 viene 
effettuata l’operazione logica AND. Tale operazione 
viene eseguita tra i bit corrispondenti dei due numeri 
con i seguenti risultati: 


Operazione AND 

valore 1 

valore 2 

risultato 


0 

0 

0 


0 

1 

0 


I 

1 

0 

1 

0 

1 


Quindi il risultato è uno solo quando i due bit hanno 
entrambi il valore 1. L’istruzione di WAIT resta in 
attesa finché il risultato dell’operazione non è diverso 
da zero. 

Per esempio, possiamo sfruttare la locazione 198, che 
contiene il numero di caratteri digitati da tastiera, per 
attendere che venga premuto un tasto. 


È necessario, innanzitutto, azzerare tale contatore 
con POKE 198,0 e quindi attendere che contenga 1 
(un tasto premuto) con WAIT 198,1. Ecco cosa acca¬ 
de: 

finché non viene premuto un tasto la locazione 198 
contiene 0: 

(locaz. 198) 0000 0000 dee. 0 

(maschera 1) 0000 0001 dee. 1 

risultato AND 0000 0000 dee. 0 

il risultato è 0 e il computer continua ad attendere. 
Quando viene premuto un tasto la locazione 198 
viene aggiornata a 1 e si ha che: 

(locaz. 198) 0000 0001 dee. 1 

(maschera 1) 0000 0001 dee. 1 

risultato AND 0000 0001 dee. 1 

il risultato è 1 e il computer prosegue con l’istruzione 
successiva. 

Se come maschera 1 utilizziamo numeri che siano 
potenze di 2, e quindi in binario vi è un solo bit alto, si 
avrà che il WAIT durerà fino a che si avrà esattamen¬ 
te lo stesso numero della maschera nella locazione 
specificata. Se, invece, la maschera contiene più di un 
bit attivo, sarà sufficiente che il valore contenuto 
nella locazione in esame abbia uno solo dei bit corri¬ 
spondenti attivi perché il programma prosegua. 
Ecco alcuni esempi: 


(contenuto locaz.) 

0000 

0000 

dee. 0 


(maschera 1) 

0100 

1111 

dee. 79 


risultato AND 

0000 

0000 

dee. 0 

ATTESA 

(contenuto locaz.) 

0100 

1111 

dee. 79 


(maschera 1) 

0100 

111] 

dee. 79 

FINE 

risultato AND 

0000 

0000 

dee. 79 

ATTESA 

(contenuto locaz.) 

0000 

0100 

dee. 4 


(maschera I) 

0100 

1111 

dee. 79 

FINE 

risultato AND 

0000 

0000 

dee. 4 

ATTESA 


Utilizzando le locazioni 160, 161 e 162, che contengo¬ 
no l’orologio di sistema, si possono creare delle pause 
temporizzate. La locazione 162 viene incrementata 
ogni 60mo di secondo, la 161 ogni 4.25 secondi e la 
160 ogni 18,2 minuti. Ad esempio, per creare una 
pausa di 2.12 secondi sarà sufficiente il comando 
POKE 162,0: WAIT 162, 128. 

E possibile anche attendere che un evento “non si 
verifichi”, utilizzando la maschera 2. L’uso di questa 
maschera permette di invertire lo stato dei bit del 
risultato in base ai bit di questa posti a 1. Viene 
eseguito, cioè, un OR ESCLUSIVO tra il risultato e 
la maschera 2. Facciamo un esempio. 
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Libri firmati JACKSON 


LA PRATICA DELL'APPLE 

Il libro ha l'obiettivo di facili¬ 
tare l'apprendimento del lin¬ 
guaggio Basic Applesoft con 
numerosi esempi ed esercizi 
con soluzione. 

130 pag. L. 10.000 
Cod. 341D 

COMPUTER GRAPHICS 

Linguaggi ed algoritmi, siste¬ 
mi grafici, integrazione 
CAD/CAM, didattica e for¬ 
mazione professionale, 
computer graphics ed edito¬ 
ria, CAD in architettura. 

512 pag. L. 45.000 
Cod. 529C 

VOI E IL VOSTRO 
COMMODORE 64 

Alla scoperta del C 64: 
dall'apertura della scatola 
alla programmazione della 
grafica e del suono. Con 
consigli pratici e 1 programmi 
testati dagli autori. 

256 pag. L. 22.000 
Cod. 347D 

ALLA SCOPERTA 
DEL VIC 20 

Perfetta integrazione al pri¬ 
mo volume "Impariamo a 
programmare in Basic con il 
VIC/CBM" per ciò che ri¬ 
guarda gli argomenti che 
trattano i file su disco e cas¬ 
setta, la stampante VIC 1515, 
i cartridge. 

300 pag. L. 22.000 
Cod. 338D 

PROIBITOI 
COME AVER CURA 
DI UN COMPUTER 

Tutto quello che bisogna sa¬ 
pere per non mandare in tilt 
un calcolatore. 

208 pag. L. 14.000 
Cod. 333D 


La Biblioteca 
che fa testo 


INTERFACCIAMENTO 
DELL’APPLE 

Il libro indispensabile a un 
uso "esterno” dell'APPLE: 
controllo dei dispositivi, tem¬ 
perature, soglie luminose, li¬ 
quidi e inoltre, modem stam¬ 
panti seriali e interfacce. 

208 pag. L. 14.000 
Cod. 334B 

APPLE II GUIDA ALL’USO 

Per imparare a conoscere e 
usare uno dei sistemi più dif¬ 
fusi al mondo. 

400 pag. L. 26.000 
Cod. 331P 
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Nel C 64 il bit 4 della locazione 1 è posto a 1, se 
viene premuto un tasto del registratore. Per attendere 
che tale tasto venga premuto è sufficiente il comando 
WA1T 1,16. Ma per attendere che venga rilasciato 
cambieremo in WAIT 1, 16, 16. 

Guardando questi valori in binario si ha che: 

Pulsante premuto rilasciato 

(locazione 1) XXXI XXXX XXXO XXXX 

(maschera 1) 0001 0000 0001 0000 


risultato AND 0001 0000 0000 0000 

(maschera 2) 0001 0000 0001 0000 


risultato OR ESCL. 0000 0000 0001 0000 

Attesa Fine attesa 


Nella tabella 2 vi sono alcuni dei WAIT più utili. 
Iset di caratteri. Il Commodore 64 è dotato di due set 
di caratteri Maiuscolo/Grafica e Minuscolo/Maiu¬ 
scolo. In modo diretto si passa da un set all’altro, 
premendo i tasti Commodore e Shift contemporane¬ 
amente. 

All'interno dei programmi, per cambiare set, si fa 
spesso ricorso a particolari PÒKE, spesso difficili da 
ricordare. 


COMANDO 

FUNZIONE 

WAIT 56464,16,16 

Attende la pressione del tasto 

FIRE sul joystick 2 del 64. 

WAIT 56464,4,4 

Attende che il joyst. vada a si¬ 
nistra. 

WAIT 56464,2,2 

Attende che il joyst. vada in 
basso. 

WAIT 56464,1,1 

Attende che il joyst. vada in 
alto. 

WAIT 56464,8.8 

Attende che il joyst. vada a de¬ 
stra. 

WAIT 56464,31,31 

Attende un cornando qualsiasi 
dal joyst. 

WAIT 145,16,16 

Attende il tasto (ire sul joyst. 1 
del 64 

WAIT 37137,32,32 

Attende il tasto (ire sul joyst. 
del VIC 

WAIT 1,16,16 

Attende finché vi è un tasto 
premuto sul registratore del 

64. 

WAIT 1,16 

Attende che venga premuto un 
tasto sul registratore del 64. 

WAIT 653,1 

Attende che venga premuto il 
tasto SHIFT 

WAIT 197.64, 64 

Attende la pressione di un ta¬ 
sto. 

POKE 162, 0:\VAIT 162,32 

Pausa di 0.5 secondi. 

POKE 162,0:WA1T 162.64 

Pausa di 1 secondo. 

POKE I62,0:WAIT 162,128 

Pausa di 2 secondi. 

TI$="000000":WAIT 161,1 

Pausa di 4 secondi. 

Tabella 2. Alcuni valori utili per sfruttare l'istruzione di 

WAIT sul C 64 e VIC 20. Altri esempi sono nell'articolo 
relativo. 


Queste funzioni sono invece richiamabili direttamen¬ 
te dalla tastiera con la pressione del tasto CTRL + 
uno dei seguenti tasti: 

N - seleziona set maiuscoli/minuscoli; 

H - disabilita il cambio di set; 

I - abilita il cambio di set. 

Questi comandi possono essere inseriti nei program¬ 
mi, all’interno di stringhe come si fa per il reverse on 
ed off, e danno luogo alle stesse lettere (N, H, I) in 
campo inverso. 

Per selezionare il set Maiuscolo/Grafica è necessario 
il comando: 

PRINT CHR$(142) 


Un POKE magico 

Capita a tutti, prima o poi, di confondersi e fare un 
POKE in una locazione errata. I risultati possono 
andare dal blocco del sistema (con improperi vari!) a 
sorprese più o meno piacevoli. 

La locazione 56325 (per il C 64) ne riserva alcune 
molto interessanti. 


DOCUMENTA 

SUI ^PRODUTTORI 

DI BENI, * 

SULLA LORO 1 
^CAPACITA 
PRODUTTIVA, 
SULLE 
POSSIBILITÀ 
CHE 

OFFRONO 
AL 

CONSUMATORE 


GUIDA MONACI 

ANNUARIO GENERALE ITALIANO 



• 00187 Roma - Via F. Crispi. 10 Tel. (06) 483.401 - Telex 613462 MONACI 

• 20145 Milano - Via V. Monti, 86 Tel. (02) 34.58.567 • Telex 332849 MONACI 
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Il timer dell’inter rupi. Sia nel C 64 che nel VIC 20 vi è 
un timer interno, che provvede 60 volte al secondo a 
generare una richiesta di interrupt. Della routine che 
viene eseguita in questa circostanza si è parlato più 
volte; ora ricordiamo solo che questa si occupa anche 
della gestione della tastiera, del cursore e dell’orolo¬ 
gio di sistema. Il tempo necessario a tale timer per 
generare un impulso è controllabile via software. Le 
locazioni preposte a questo sono la 56325, 56324 nel 
C 64 e 37879, 37878 nel VIC 20. La locazione 56325, 
di cui parlavamo, è quindi il byte alto della memoria 
del timer. 

Più piccolo è il numero in esso contenuto, minore 
sarà l’intervallo di tempo tra gli impulsi e perciò più 
frequenti gli interrupt. Una prima esperienza la pos¬ 
siamo fare battendo il seguente programma: 

10 PRINT(CLR): POKE 56325, 10: REM 
PER IL VIC POKE 37879, 10 
20 PRINT (HOME) TI$:GOTO 20 

Vedrete l’orologio in alto a sinistra contare mollo più 


velocemente del normale. Fermate ora il programma 
con il tasto STOP. Vi accorgerete che anche il cursore 
lampeggia ad una frequenza superiore. Provate a 
scrivere o a tenere premuti i tasti di spazio o movi¬ 
mento cursore. Tutte le funzioni di schermo sembra¬ 
no essere diventate notevolmente più veloci. 

Cosa pensate sia accaduto alla routine di LlST?Cari- 
catc in memoria un programma abbastanza lungo e 
date il LIST. Noterete che ora il listato del program¬ 
ma sullo schermo, al contrario di quello che pensava¬ 
te, procede molto più lentamente e che potete rallen¬ 
tare lo scroll con il tasto di SHIFT o giungere quasi a 
fermarlo con il tasto CTRL. 

Per concludere, quanto più è basso il valore im¬ 
messo nella locazione 56325 (37879 per il VIC), il cui 
valore normale è circa 50, tanto più diventa veloce la 
gestione del cursore e lenta la routine di LIST. Oltre 
che divertente, ciò può essere utile quando si devono 
correggere programmi in BASIC particolarmente 
lunghi, poiché è possibile con il tasto CTRL fermare 
momentaneamente lo scroll per leggere il listato. 


SHARP PC 1251 


La rappresentazione dei numeri 

di Mauro Letizi 

In questo numero ci occupiamo di come viene 
memorizzato un dato numerico all’interno del com¬ 
puter. In uno degli articoli precedenti si era detto clic 
le locazioni in cui vengono memorizzati i valori delle 
variabili partono da 50846 e da lì scendono progressi¬ 
vamente; più precisamente il valore di A viene memo¬ 
rizzalo da 50840 a 50846. il valore di Z da 50640 a 
50646. 

Risulta perciò ovvio che lo Sharp ha a disposizione 
solo sette byte per memorizzare un qualunque nume¬ 
ro: il grosso problema è però capire con qualecriterio 
questo numero venga codificato in un così piccolo 
spazio. 

1 metodi noti di rappresentazione numerica sono 
molti e vengono affrontati su appositi testi; non è 
quindi mia intenzione fare una lunga trattazione in 
proposito e mi limiterò a parlare sinteticamente di un 
paio di essi. 

I metodi più diffusi sono: la rappresentazione binaria 
diretta, binaria con segno, in complemento ad uno, la 
rappresentazione in virgola mobile e in BCD. I primi 
tre metodi riguardano il problema di rappresentare 
un numero all’interno di un solo byte, mentre gli altri 
due coinvolgono i primi tre metodi e riguardano il 
problema più generale di rappresentare un qualun¬ 


que numero razionale entro un certo numero, fisso o 
variabile, di byte. 

Il principio su cui si basa la rappresentazione dei 
numeri in BCD è di codificare separatamente ogni 
digit (cifra) decimale c di utilizzare tutti i bit occor¬ 
renti per memorizzare esattamente il numero com¬ 
pleto. 

Per codificare tutti i digit da 0 a 9 si vede subito che 
sono necessari quattro bit, poiché tre bit consentireb¬ 
bero soltanto otto combinazioni, insufficienti per 
rappresentare le dieci cifre decimali. Quattro bit sono 
invece sufficienti ed anzi, poiché consentono di for¬ 
mare sedici diverse combinazioni, sono addirittura 
sovrabbondanti (figura I). 

In ogni caso con un byte si possono codificare due 
cifre BCD. Questo viene denominato “BCD impac¬ 
cato". 

Per memorizzare tutti i digit BCD vengono normal¬ 
mente utilizzati tutti i bit necessari, riservandone 
alcuni all’inizio per indicare il numero totale degli 
stessi e per indicare la posizione di un’eventuale vir¬ 
gola ed il segno. 

Nella rappresentazione in virgola mobile il principio 
di base è che il numero decimale deve essere rappre¬ 
sentato con un formato fisso e tutti i numeri vengono 
cosi normalizzati in un certo modo. 

Ad esempio il numero “0,0000435” utilizza quat¬ 
tro zeri a sinistra delle altre cifre, esclusivamente per 
indicare la posizione del punto decimale. 

Questo numero può però essere normalizzato come 
4.35 x 10 ’ 5 ; la stringa “4,35” viene detta mantissa, 
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La rappresentazione 
dei numeri. 


mentre “-3” è l’esponente. 

Analogamente il numero 987654000000 viene nor¬ 
malizzato come 987654x10". 

Una tipica rappresentazione in virgola mobile è mo¬ 
strata in figura 2. 

Nella rappresentazione utilizzata in questo esempio 
vengono usati quattro byte per rappresentare il nu¬ 
mero, per un totale di 32 bit. Il primo byte viene usato 
per rappresentare l’esponente. Sia l’esponente che la 
mantissa vengono indicati mediante un particolare 
sistema di rappresentazione, detto in complemento a 
due, che permette di individuare immediatamente il 
segno sia dell’esponente che della mantissa. 

Passiamo ora ad esaminare quale metodo di rap¬ 
presentazione hanno utilizzato i nostri "amici giap¬ 
ponesi’’ per questo computer. 

Immettiamo in A il valore 1984 ed andiamo a vedere, 
esaminando i registri da 50840 a 50846, come è stato 
memorizzato il nostro numero con l’istruzione PE- 
EK; la sequenza che troviamo è: 0 48 25 132 0 0 0. 


Naturalmente, nessuno dei suddetti metodi è quello 
che è stato scelto per questo computer, che ne vanta 
uno tutto speciale, in grado di mettere in crisi anche i 
migliori decifratori di codici segreti! 

Procediamo con ordine. Per prima cosa vediamo 
qual è il range dei numeri che dobbiamo compattare 
in sette byte: il numero più grande, in valore assoluto, 
è 9,999999999 x IO 99 ed il più piccolo è 1,111111111 x 
IO' 99 . 

Quindi in quei sette byte devono essere memorizzate 
dieci cifre per la mantissa e due cifre per l’esponente. 
In BCD sono necessari cinque byte per poter memo¬ 
rizzare un numero di dieci cifre e quindi il metodo 
utilizzato dallo Sharp potrebbe essere quello. Immet¬ 
tiamo in A il numero 1234567899 ed andiamo a 
vedere come vengono influenzati i sette byte che ci 
interessano. Troviamo la sequenza: 0 144 18 52 86 
120 153. 

Andiamo ora a considerare come verrebbe codificato 
questo numero in BCD. 


Codice 

Simbolo 

BCD 

Codice 

Simbolo 

BCD 

0000 

0 

1000 

6 

0001 

1 

1001 

9 

0010 

2 

1010 

non impiegato 

0011 

3 

1011 

non impiegato 

0100 

4 

1100 

non impiegato 

0101 

5 

1101 

non impiegato 

0110 

6 

1110 

non impiegato 

Olii 

7 

1111 

non impiegato 


Figura 1. Nella tabella sono rappresentali tutti ipossi¬ 
bili codici BCD ed i numeri corrispondenti in codice 
decimale. 


bit 31 24 23 


S EXP 


16 15 

- 1 — : — 


6 7 

—i— 


0 


MANTISSA 


Figura 2. Una tipica 
rappresentazione in virgola 
mobile, che utilizza quattro 
byte per un totale 
di 32 bit. 

// ventitreesimo ed il 
trentunesimo bit 
indicano il segno, 
rispettivamente, 
della mantissa e 
dell'esponente. 
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Dobbiamo considerare le cifre singolarmente e tra¬ 
durle in numeri binari: 

1= 0001 4 = 0100 7 = 0111 

2 = 0010 5 = 0101 8 =1000 

3 = 0011 6 = 0110 9 = 1001 

Quindi dobbiamo prendere le cifre a due a due e 
tradurre in decimale ogni BCD impaccato: 

12 = 00010010 = 18 
14 = 00110100 = 52 
56 = 01010110 = 86 
78 = 01111000 = 120 
99 = 10011001 = 153 

Abbiamo cosi trovato il metodo per codificare diret¬ 
tamente in memoria la mantissa, senza troppe diffi¬ 
coltà. 

La parte più ardua è stata quella di trovare il metodo 
di codifica dell’esponente. In questo caso conviene 
procedere al contrario: sicuramente l’esponente deve 
essere memorizzato in uno dei primi due byte, oppure 
in tutti e due. Andiamo perciò a vedere le cifre deci¬ 
mali che rappresentano quei due byte: 

0 = 00000000 = 0 
144 = 10010000 = 90 

Il nostro numero può essere normalizzato in 
l,234567899xl0 9 e perciò può darsi che siano i primi 
quattro bit del secondo byte ad indicarmi l’esponen¬ 
te. Facciamo un’altra prova: immettiamo in A il 
numero 9.999999999E34. Troviamo la sequenza: 3 64 
153 153 153 153 153. 

Per quanto riguarda la mantissa i risultati si accorda¬ 
no perfettamente con il metodo suddetto. Esaminia¬ 
mo i byte dell’esponente: 

03 = 00000011 = 03 
64 = 01000000 = 40 

Naturalmente, per trovare il sistema giusto ho fatto 
moltissimi tentativi, comunque risulta già evidente 
che le cifre dell’esponente vengono memorizzate in 
BCD nel secondo gruppo di quattro bit del primo 
byte (destinato ad accogliere le decine) e nel primo 
gruppo del secondo byte. Fino a qui tutto è piuttosto 
semplice e conserva una sua logica, ma i nostri pro¬ 
blemi non si esauriscono ancora. 

Infatti non abbiamo ancora considerato i numeri 
negativi, né quelli decimali. 

Per quanto concerne i numeri negativi il metodo di 
codifica non si differenzia di molto da quello usato 
per i numeri positivi; immettiamo in A il numero 
— 1.234567899E9 ed andiamo a vedere come questo 
numero è stato memorizzato. La sequenza trovata è: 
0 152 18 52 86 120 153. 

Possiamo vedere chiaramente che il procedimento 
usato per codificare la mantissa è lo stesso per i 
numeri positivi e per quelli negativi: infatti gli ultimi 


cinque byte sono gli stessi che avevamo trovato per 
A= 1234567899. 

L’esponente, invece, a prima vista sembra totalmente 
diverso, ma se andiamo a scomporre i primi due byte, 
possiamo scoprire che il trucco usato è molto sempli¬ 
ce: 

00 = 00000000 

152 = 10011000 

L’unica differenza riguarda i secondi quattro bit del 
secondo byte, che invece di essere “0000” sono diven¬ 
tati “1000”. Possiamo quindi dire che la stringa 
“0000” posta nei quattro bit a destra del secondo 
byte simboleggia un numero positivo, mentre la 
stringa “1000" ci segnala che il numero è negativo. 
Ora non ci rimane che parlare della codifica dei 
numeri decimali con esponente minore di zero. Me¬ 
morizziamo in A il numero 0,0001234567899, che 
normalizzato diventa 1,234567899 x 10 ’ 4 , ed andia¬ 
mo ad esaminare il contenuto dei soliti byte da 50840 
a 50846: 153 96 18 52 86 120 153. 

Come si poteva prevedere, anche questa volta il me¬ 
todo di codifica della mantissa non è cambiato e 
spetta ancora ai primi due byte segnalare questa 
particolarità del numero. Questa volta però il meto¬ 
do di codifica che troveremo sarà veramente pazze¬ 
sco. Esaminiamo innanzitutto i due byte che ci inte¬ 
ressano in binario e in BCD: 

153 = 10011001 = 99 
96 = 01100000 = 50 

I secondi quattro bit del secondo byte sono “0000” 
per indicarci che il numero è positivo, perciò dobbia¬ 
mo concentrare la nostra attenzione solo sul primo 
byte e sui primi quattro bit del secondo. 

Vediamo la sequenza che si ottiene immettendo un 
altro numero ad esponente negativo, ad esempio 
1.234567899E-34: 150 96 18 52 86 120 153. 
Analizziamo i due byte: 

150 = 10010110 = 96 
96 = 01100000 = 60 

È facile scoprire che i primi quattro bit del primo byte 
sono “1001” quando il numero memorizzato ha un 
esponente negativo, mentre diventano “0000” per 
segnalare la presenza di un esponente positivo. 

Il problema che ci troviamo di fronte è però che 
l’esponente, in caso di numeri decimali, viene codifi¬ 
cato in maniera stranissima e per interpretarlo si deve 
ricorrere ad una formuletta empirica che ho trovato. 
Supponiamo di voler codificare direttamente in me¬ 
moria nel registro A il numero l,234567899E-72. 
Sappiamo già che per codificare la mantissa non 
dovremo fare altro che trasformare il nostro numero 
in BCD, ottenendo la sequenza già vista 18 52 86 120 
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Facile 


CALCOLARE... 


MODIFICARE... 


DECIDERE... 


E’ facile con MuHiplan. 
Questo programma per la 
gestione del “foglio 
elettronico" trasforma il 
vostro personal computer in 
un prestigioso calcolatore che 
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Programma 1 

10 

A = 2 ♦ 2 

20 

POKE 50642,60 

30 

PRINT “2 ♦ 2 

40 

END 


Listato I. Con questo brevissimo programma si può 
"dimostrare scientificamente che due più due fa cin¬ 
que"! Il trucco consiste nell'andare a modificare op¬ 
portunamente uno dei byte in cui viene memorizzalo il 
valore di A. 



153, che andremo a memorizzare dall'indirizzo 50842 
in poi. Inoltre sappiamo anche che. essendo l’espo¬ 
nente negativo, i primi quattro bit del primo byte 
saranno “1001". 

I secondi quattro bit vanno calcolati come segue: 

I ) si sottragga uno all’esponente, che consideriamo 

in valore assoluto; 

2) si consideri la cifra delle decine del numero cosi 
ottenuto e la si sottragga a nove; 

3) si trasformi il risultato di questa operazione in 
binario. 

Nell’esempio suddetto avevamo come esponente 
—72. Per prima cosa sottraiamo uno al valore assolu¬ 
to di quel numero, ottenendo 71. Poi eseguiamo la 
sottrazione 9-7 = 2. Infine trasformiamo il due in 
codice binario: 0010. 

II primo byte sarà dunque 10010010 = 146. 

Per il secondo byte occorre un metodo analogo. 
Innanzitutto sappiamo già clic i secondi quattro bit 
saranno “0000” o “1000”, a seconda che il numero 
sia positivo, come in questo caso, o negativo. 

Per i primi quattro bit si deve procedere come segue: 


1) si sottragga la cifra delle unità dell’esponente al 
numero 10; 

2) si trasformi la cifra delle unità del numero cosi 
ottenuto in codice binario. 

Per il nostro numero eseguiremo: 10-2 = 8 = 1000. Il 
secondo byte sarà perciò 10000000 = 128. Tengo a 
precisare che questo complicato sistema di codifica 
dell’esponente deve venire effettuato solo per espo¬ 
nenti negativi. Uno schema di quanto detto è mostra¬ 
to in figura 3. 

Per risollevare un po’ il morale alla fine di questo 
complicato discorso, e per vendicarci di questa "in¬ 
fernale macchinetta”, fate girare il programma I: 
scoprirete che non sempre due più due fa quattro, 
neanche per i computer! 


Numero 

Esponente 

RAPPRESENTAZIONE 

Primo byte 

Secondo byte 

N>0 

Exp>0 

0000 Decine (Ex p) 

Unita’(Exp) 0000 

N>0 

Exp<0 

0000 Decine (Exp) 

Unita’(Exp) 1000 

N<0 

Exp>0 

1001 9-(Decine (Exp-1 )) 

Unita'(10-Unita'(Exp)) 0000 

N<0 

Exp<0 

1001 9-(Decine(Exp-l )) 

Unita(10-Unita'(Exp)) 1000 


Figura 3. Schema riassuntivo della rappresentazione dell'esponente. 


TEXAS TI99/4A 

Accesso diretto in un file 
sequenziale?!! 

di Sergio Borsani 

Il TI BASIC è un linguaggio molto semplice, adat¬ 
to a chi vuole effettuare le prime esperienze nel cam¬ 
po della programmazione. 

Senza comandi sofisticati, o PEEK e POKEcon rela¬ 


tive locazioni di memoria, sono veramente poche le 
sorprese che può riservare. 

Solitamente qualche difficoltà può derivare inizial¬ 
mente dall’uso della grafica oppure, e sicuramente in 
grado maggiore, dall’uso dei file sequenziali su na¬ 
stro. 

Chi non ha pensato a costituire una piccola rubrica 
con nomi ed indirizzi oppure un piccolo archivio per 
tenere in ordine la discoteca personale? 

C’è chi si è spinto più in là ed ha sperato, ma solo 
sperato, di poter usare il TI99 senza espansioni per 
tenere aggiornato l’archivio di una piccola attività 
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commerciale! 

Qual è il problema? 

Nella maggior parte dei casi bisogna poter accede¬ 
re ad un record in modo diretto, tramite un campo 
chiave, come potrebbe essere il nome di un articolo. 
Ma con i file sequenziali su nastro il computer deve 
leggere l’intero file dall’inizio, impiegando magari 
mezz’ora prima di individuare il record da noi richie¬ 
sto! 

Una soluzione consiste nel caricare l’intero file nella 
memoria centrale sotto forma di matrice a due di¬ 
mensioni. In questo modo si può accedere diretta- 
mente ad un record, ma l'ampiezza del file deve essere 
drasticamente ridotta per la limitata RAM disponibi¬ 
le. 

Come dice il proverbio, la necessità aguzza l’ingegno 
... e se provassimo a leggere un file sequenziale non 
dall’inizio, ma esattamente da dove sappiamo debba 
trovarsi un particolare record? 

Eresia? Prima di dare una risposta sarebbe meglio 
vedere all’opera il breve programma 1. Esso prevede 
la scrittura di record formati da cinque campi, nel¬ 
l’ordine: cognome, nome, indirizzo, città enumero di 
telefono. Naturalmente, con poche modifiche il pro¬ 
gramma può trattare altri tracciati record. 

Le risposte vanno date scrivendo con caratteri maiu¬ 
scoli e bisogna fare attenzione a non inserire le virgo¬ 
le, che servono come separatori di variabili nelle 
istruzioni input. 

Mentre si costruisce il file, scrivendo i record ad uno 
ad uno sul nastro, contemporaneamente in una ma¬ 
trice bidimensionale prende forma un altro file, detto 
file-indice, contenente solo i cognomi ed il numero 
segnato dal tape counter prima della scrittura di ogni 
record. Questo numero va indicato dall’utente, il 
quale deve controllare costantemente il registratore 
in fase di scrittura. 

Il file viene chiuso quando in risposta al cognome 
si scrive la parola FINE. Successivamente viene regi¬ 
strato il file-indice. 

In fase di lettura si dovrà per prima cosa caricare in 
memoria il file-indice, dopo di che il computer potrà 
procedere alla ricerca di un particolare record. 

Se l’utente indica un cognome presente nell’indice, 
riceve in risposta il numero del tape counter, in corri¬ 
spondenza del quale deve essere posizionato il na¬ 
stro. 

I 

Con il registratore usato per le prove tale numero 
deve risultare di due unità inferiore rispetto a quello 
indicante la posizione effettiva del record e questo 
perché il computer prima di leggere il nastro lo fa 
girare un po’ a vuoto. 

Comunque la sottrazione delle due unità è fatta dal 
programma e l’utente deve posizionare il nastro pro¬ 


prio al numero indicato. 

Se tutto si svolge in modo corretto, il computer riesce 
a leggere dal file sequenziale solo un record, mostran¬ 
do cognome, nome, indirizzo, città c numero di tele¬ 
fono del nominativo richiesto. 



In caso contrario vengono letti al massimo 3 record, 
dopo di che, se la ricerca è stata infruttuosa, appare 
un messaggio di record non presente, anche se in 
verità, durante le prove, ciò non si è mai verificato. 
Qual è l'enorme vantaggio di una simile applicazio¬ 
ne? La spiegazione è evidente; in memoria centrale 
non si deve tenere l’intero file, ma solo l’indice e 
tramite questo si può accedere direttamente ad una 
grande quantità di dati conservati sul nastro, proprio 
come avviene con un sistema a dischi. I tempi di 
accesso sono ragionevoli. Mentre la lettura del file 
sequenziale dall’inizio potrebbe comportare tempi 
d’attesa di mezz’ora o più, in questo modo, per la 
ricerca di un record, il tempo scende notevolmente e 
dovrebbe oscillare tra i 10 e i 20 secondi. 
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Dal momento che la prova è stata effettuata su non 
più di IO record, si potrebbe avanzare una riserva 
sulla precisione del contanastro nel caso di un file di 
grosse proporzioni. 

Il metodo è certamente in una fase sperimentale e. 


prima di affermare che costituisce un’autentica novi¬ 
tà, deve essere sottoposto ad un severo collaudo, 
soprattutto da parte dei lettori più interessati dai 
quali sarà gradito un giudizio circa la sua funzionali¬ 
tà. 


Listato 1. Programma per la creazione 
di un semplice archivio. 

100 REM RECORD A RICERCA 

1 110 REM VELOCE SU NASTRO 
120 REM ##**###*#*##*#** 

130 REM versione: TI BASIC 
140 CAL.L CLEAR 
150 DIM Ri<100,2) 

160 FRINT "PREMI:":: 

, 170 FRINT "1. PER LA SCRITTURA DEL FILE" 

180 PRINT "2. PER LA LETTURA DEL FILE":: 

190 CALL KEY(0,K,S> 

200 IF 5=0 THEN 190 
210 IF K=49 THEN 240 
220 IF K=50 THEN 630 
230 BOTO 190 

240 OPEN #3:"CSI",SEGUENTIAL,OUTPUT,INTE 
I RNAL,FIXED 
i 250 CALL CLEAR 

260 PRINT "SCRIVI, PER PROVA, ALCUNI" 

1 270 PRINT "RECORD." 

280 PRINT "PER FINIRE SCRIVI: FINE":: 

290 CTR»0 
300 CTR--CTR-M 
310 PRINT 

1 320 PRINT 

330 PRINT "RECORD N."JCTR 
340 INPUT "cognome: ":COGi 
350 IF C0B*="FINE" THEN 480 
360 INPUT "nome: ":NOMi 
370 INPUT "Indirizzo: “:INDÌ 
380 INPUT "citta’: ":CIT$ 

390 INPUT "tei.: ": TEL* 

400 INPUT “tape counter : ":TF - Ci 
410 PRINT 

420 PRINT " CONFERMI? (Y/N)" 

430 CALL KEY(0,K,S) 

440 IF S=0 THEN 430 
450 IF K=B9 THEN 480 
460 IF K=78 THEN 300 
470 GOTO 430 
480 Ni<CTR,1)=C0GÌ 
490 Ni < CTR, 2) =TPCÌ 

500 F'R I NT #3 : COGi, NOMi, 1 ND$, CI Ti, TEl.i 
i 510 IF CQGÌ="FINE" THEN 530 
520 GOTO 300 
530 CLOSE 1*3 
540 CALL CLEAR 

550 PRINT "ORA VIENE REGISTRATO IL FILE" 
560 PRIMI "INDICE. ANNOTA IL NUMERO DEL" 
570 PRINT "TAPE COUNTER." 

580 OPEN #3:"CSI ", SEGUENTIAL,OUTPUT, INTE 

RNAL,FIXED 

590 FOR J=1 TO CTR 


600 TRI NT «3:Ni<J,1),Ni(J,2> 

610 NEXT J 
620 CLOSE #3 
630 CALL CLEAR 

640 PRINT "ORA VIENE CARICATO IN MEMO-" 
650 PRINT "RIA IL FILE INDICE." 

660 OPEN #3:"CSI".SEGUENTIAL,INPUT ,INTE 
RNAL,FIXED 
670 CTR=0 
680 CTR=CTRH 

690 INPUT #3: Ni(CTR,1),Ni(CTR,2) 

700 IF Ni (CTR, 1)0 "FINE" THEN 680 
710 CLOSE #3 
720 CALL CLEAR 

730 PRINT "ORA LEGGIAMO UN RECORD CON" 
740 PRINT "IL METODO DELLA RICERCA VE-" 
750 PRINT "I OCE.":"SCRIVI UN COGNOME." 
760 PRINT 

770 INPUT "cognome: ":RECi 
780 FOR .7 = 1 TO CTR 
790 IF Ni(J,1)=RECÌ THEN 900 
800 NEXT J 

810 PRINT ::"NOMINATIVO ASSENTE!":: 

820 PRINT " VUOI CONTINUARE? (Y/N)" 

830 CALI KEY(0,l,S) 

840 IF 5=0 THEN 830 
050 IF K--89 THEN 760 
860 IF K=78 THEN 080 
870 GOTO 830 
880 CALL CLEAR 
890 END 

900 PRINT ::"POSIZIONA IL NASTRO AL NUME 

r il 

910 NUMERO=VAl. (N*( J,2) >-2 

920 PRINT "RO"!NUMERO;"DEL TAPE COUNTER. 

«I 

930 OPEN #3:"CSI".SEGUENTIAL,INPUT ,INTE 

RNAL,FIXED 

940 PR0VA=0 

950 PROVA=PROVA+1 

960 INPUT #3:COGi,NOMi,INDi,CITi,TELI 

970 IF COGÌ="FINE" THEN 1090 

980 IF PROVA>3 THEN 1090 

990 IF COGiORECi THEN 950 

1000 CLOSE 1*3 

1010 CALL CLEAR 

1020 PRINT "cognome: ";COGi 

1030 PRINT "nome: ";NOMi 

1040 PRINT "indirizzo: ";INDi 

1050 PRINT "citta': ";CITi 

1060 PRINT "tei.: "5TELi 

1070 PRINT :::: 

1080 GOTO 820 
1090 CLOSE #3 
1100 CALL CLEAR 

1110 PRINT "RECORD NON PRESENTE":: 

1120 GOTO 820 
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End Of File: da errore a funzione 


c!i Marcello Spero 

Con i microdrive diventa operativo il codice di 
errore 8, End Of File. Questo tipo di errore lo si 
ottiene tentando di leggere, con INPUT od INKEYS, 
oltre la line di un file (di tipi) “dati”). A questo 
proposito è forse il caso di riassumere brevemente il 
comportamento dei file disponibili con i microdrive. 
Sui microdrive possono essere aperti solo file di tipo 
sequenziale, il cui funzionamento è simile a quello del 
sistema READ DATA RFSTORH. Con l’istruzione 
OPEN#, come con RESTORE, ci si porta all’inizio 
della lista di dati contenuti nel file interessato. Ogni 
INPUT# od INKEY#, prelevando un dato (un sin¬ 
golo carattere per INKEYS, tutti i caratteri fino al 
primo ENTER per INPUT), spostano in avanti il 
puntatore della lista, analogamente a delle READ. 
Proseguendo nella lettura dei dati, inevitabilmente 
verrà raggiunta la fine della lista; ogni ulteriore tenta¬ 
tivo di lettura darà a questo punto l’errore 8, così 
come, con una lista di DATA, avrebbe dato l’errore 
E (Out of DATA). Volendo riprendere dall’inizio la 
lettura, bisognerebbe chiudere e riaprire il file. 

Nel caso di una lista di DATA non ci sono problemi 
per evitare l’errore: basta dimensionare il ciclo di 
lettura secondo il numero di dati disponibile. Cono¬ 
scere l’ampiezza di un file, d’altra parte, può non 
essere facile. Basti pensare ad un file preparato da 
altri, o aggiornato più e più volte e quindi di lunghez¬ 
za diversa ad ogni nuovo uso. Dovendone leggere 
tutti i dati, inevitabilmente si arriverà all’errore End 
Of File; sarà anzi necessario arrivarci, per essere 
sicuri di non aver trascurato alcuna informazione. 
Questo, però, significa l’interruzione del program¬ 
ma. 

A questo inconveniente è possibile ovviare in pa¬ 
recchi modi. Il primo, e più semplice, consiste nel 
porre come ultimo dato un carattere particolare che 
faccia da “segnale”. Non è detto, comunque, che 
questa operazione risulti sempre agevole. 

Un secondo metodo è quello di ricorrere alla proce¬ 
dura ON ERROR GO TO, vista in una scorsa punta¬ 
ta. L’errore End Of File, infatti, pur essendo gestito 
dalla ROM “fantasma” dell’interfaccia 1, fa parte dei 
“vecchi” codici di errore, codificati con numeri e 
lettere, contenuti nella ROM principale e quindi uti¬ 
lizzabili da questa routine. Basterà prevedere un’ap¬ 
posita subroutine BASIC, che faccia fronte alla situa¬ 
zione chiudendo il file e tornando al programma 


principale in posizione opportuna. 

Se non è comodo dover “marcare” la fine di ogni file 
con un carattere speciale, non lo è neanche accorgersi 
della fine di un file solo dopo aver tentato di leggere 
un dato di troppo. Tutti i computer di un certo 
livello, infatti, possiedono una funzione, normal¬ 
mente chiamata EOF, che assume valore uno (o di¬ 
venta "vera”, se preferite) dopo la lettura dell'ultimo 
dato di un file; in tutti gli altri casi il suo valore è zero. 
La differenza sostanziale sta proprio nel poter essere 
informati della fine di un file prima di averci “sbattu¬ 
to il nasi) contro”. 

È possibile ottenere qualcosa di analogo sullo Spec- 
trum? Certamente (ma cosa non è possibile ottenere 
da questa macchina?); basta eseguire le stesse verifi¬ 
che operate dal sistema per decidere se inviare il 
messaggio di errore 8: solo che noi le eseguiremo 
prima di lui, anticipandolo sempre di una lettura. 
Come abbiamo visto tempo fa in un articolo sull’or¬ 
ganizzazione dell’input/output nello Spectrum (Per¬ 
sonal Software n. 12/13), l’arca puntata dalla variabi¬ 
le di sistema CHANS (23631) contiene i “canali” di 
ingresso/uscita relativi ai flussi aperti. Già all’accen¬ 
sione vi troviamo le informazioni relative ai canali 
“K” (parte bassa dello schermo in uscita e tastiera in 
ingresso), “S” (parte alta dello schermo) e “P” (stam¬ 
pante). Si tratta di canali molto corti, il cui contenuto 
si limita agli indirizzi delle relative routine di I/O. 
Caratteristica comune a tutti i canali, anche a quelli 
ben più complessi che vedremo in seguito, è la presen¬ 
za in posizione 1+4 (chiamando I l’indirizzo di inizio 
di un qualsiasi canale) di un carattere identificatore; 
nello Spectrum originale può essere solo “K”, “S” o 
“P” (esiste anche un canale “R”, corrispondente alla 
routine di inserimento di un byte nella memoria di 
sistema, peraltro non accessibile dal BASIC), mentre 
nel sistema esteso divengono possibili anche “M”, 
“N”, “T” c “B” (microdrive, rete locale ed interfac¬ 
cia RS 232 nelle due possibili codifiche). 

Tutte le informazioni relative ad un file di microdrive 
sono contenute nel relativo canale. Questo viene cre¬ 
ato. sempre nell’area CHANS, all’esecuzione di un 
comando OPEN#; “m”; ... Il manuale dell’interfac¬ 
cia I riporta in appendice lo schema dettagliato, 
anche se talvolta impreciso, delle informazioni, dav¬ 
vero numerose, contenute in un canale di questo tipo, 
lungo ben 595 byte. A noi, per il momento, interessa¬ 
no solo i dati che possono darci indicazioni sulla 
eventuale posizione di fine file del puntatore di lettu¬ 
ra. 

A questo riguardo la prima variabile del canale che ci 
interessa è CHBYTE, in posizione 1 + 11. Composta 
da due byte, è proprio il puntatore, per la lettura o la 
scrittura a seconda del tipo di file. 

Il suo valore indica la posizione all’interno del buffer 
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(le informazioni provenienti dai microdrive vengono 
“scaricate" in memoria, a blocchi di 512, in un buffer 
che fa parte del canale), variabile da 0, per il primo, a 
511, per l'ultimo, semprcehé esistano almeno 512 
dati. 

Questa informazione ce la dà RECLEN, in posi¬ 
zione 1+69. A nell'essa di due byte, indica quanti dati 
sono effettivamente contenuti nel buffer. Queste due 
informazioni potrebbero già essere sufficienti, in un 
buon numero di casi, a segnalarci la fine di un file. Un 
buffer parzialmente vuoto, infatti, non può essere che 
l'ultimo; trovandoci quindi di fronte ad una RE¬ 
CLEN <512 ed una CHBYTE=RECLEN (cioè già 
oltre il massimo, visto che CU BYTE inizia a contare 
da 0, mentre RECLEN da I) potremmo affermare 
con sicurezza di essere alla fine di un file. 

Ma cosa fare nel caso di file contenenti esattamente 
512 dati? Il nostro sistema, infatti, non funzionerebbe 
più. Esistono ben due variabili, CU REC e REC- 
NUM, che indicano il numero d’ordine del record in 
buffer all’interno del file, ma non possono esserci di 
aiuto poiché non possiamo conoscere a priori da 
quanti record è composto il nostro file. 

Quello che fa per noi è la variabile RECFLG, in 
posizione 1+67. 

Formata da un unico byte, questa variabile costitui¬ 
sce uno dei “llag" del canale; il manuale (per lo meno 
quello italiano) ne indica come significativo il solo bit 
2, posto a zero per i file in scrittura o ad uno per i file 
in lettura. Non è questa la funzione realmente svolta 
dalla variabile; del resto esiste già un altro flag di 
lettura/scrittura, ed è CU FLAG (1+24). RECFLG è 
invece il flag di ultimo record; il suo bit I, l'unico 
significativo, passa ad uno quando il buffer viene 
caricato con l'ultimo record di un file (ovviamente in 
lettura). 

La combinazione di CHBYTE, RECLEN e 
RECFLG ci consente di ottenere una indicazione 
inequivocabile della fine di un file. Quando, infatti. 
RECLEN=CHBYTE e RECFLG=2 (tutti i bit non 
significativi di questa variabile vengono tenuti a zero) 
vorrà dire che c stato letto l’ultimo byte del file. 

Per usare in pratica questo sistema bisogna però 
conoscere l'inizio del canale che ci interessa. Potrem¬ 
mo passare in rassegna i vari canali, partendo dall'in¬ 
dirizzo puntato da CHANS, in cerca di un canale di 
microdrive, ma sarebbe un metodo poco affidabile. 
Inoltre, per discriminare fra più canali di microcrive, 
occorrerebbe andare a leggere il nome del file, conte¬ 
nuto in una apposita variabile del canale. Neanche 
questo sarebbe però sufficiente: è infatti possibile che 
siano aperti più canali riguardanti lo stesso file, per 
poterlo leggere contemporaneamente in punti diver¬ 
si. L'unico metodo sicuro, del resto utilizzato dallo 
stesso sistema per trovare un determinato canale, è 


ricorrere all'area STRMS. 

Rimandando nuovamente all'articolo sull'input/ 
output (Personal Software n. 12/13) per maggiori 
dettagli, basterà qui ricordare che quest’area contie¬ 
ne i valori a due byte da sommare all'Indirizzo di 
inizio dell'area CHANS, per ottenere la locazione 
iniziale di ciascun canale. Queste informazioni sono 
ordinate secondo il numero del flusso cui è associato 
il relativo canale: le informazioni relative ad un deter¬ 
minalo Busso, quindi, avranno sempre la medesima 
posizione, sia che i Bussi precedenti siano stati aperti 
o meno (in questo caso nelle relative posizioni ci 
saranno degli zeri). Questo punto è importante, poi¬ 
ché i canali veri e propri non seguono invece alcun 
schema fisso, disponendosi secondo l’ordine in cui 
sono stati creati. 

Per ottenere l’indirizzo di inizio del canale che ci 
interessa, quindi, occorre: 

• prendere il valore del Busso ad esso associato (il 
numero che segue il segno #), moltiplicarlo per 
due (ogni valore è costituito da due byte), som¬ 
margli 6 (esistono, prima dei canali “normali", da 
0 a 15, tre canali, 253, 254 e 255, di esclusivo uso 
del sistema, che occupano le prime sei posizioni di 
STRMS) ed infine sommarlo al valore iniziale di 
STRMS (23568); 

• il valore così ottenuto ci indicherà la posizione, 
all'interno dell’area STRMS, del primo dei due 
byte relativi al nostro Busso. Il valore in essi conte¬ 
nuto andrà sommato a quello contenuto nella va¬ 
riabile CHANS. 

Se possedete l’interfaccia 1 ed un microdrive, potete 
provare in pratica quanto abbiamo visto finora. 


Listato I. Creazione di un file fittizio. 

1 REM 

******************************** 


* * 

* CREAZIONE * 

* * 
* DI UN FILE DI 10O0 NUMERI * 

». * 


****************** ************** 
20 OPEN »S.. "IH ", i; "P i ppc - 
30 F Oh i =i TO 10DC 

à-O PRlltr fc3; i 
se ne>:t i 


Listato 2. L'errore linci Of /'ile. 

l REM 

******************************** 
* * 

* LETTURA SENZA* CONTROLLO * 

* * 
******************************** 

10 open #5,1;"pìppo" 

20 INPUT ttS,i 
30 PRINT RT 10,10 ;i 
4.0 GO TO 20 
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Create, con il listato 1, un file che contenga un nume¬ 
ro qualsiasi di dati. Quindi, con il listato 2, leggete 
questi dati uno ad uno, in un ciclo senza fine: ad un 
certo punto otterrete il messaggio 8, End Of File. 
Chiudete il file e provate a rileggerne i dati con il 
listato 3, che fa uso degli accorgimenti visti sopra per 
identificare l'ultimo elemento di un file. 

La subroutine in linea 1000, infatti, compie tutti i 
passaggi che abbiamo elencato per avere l’indirizzo 
di inizio del canale il cui flusso è indicato dalla varia¬ 
bile f e ne preleva quindi i dati necessari al controllo. 
Se la lettura può procedere, la variabile EOF sarà a 
zero; viceversa, se quello appena letto era l’ultimo 
byte del file EOF, sarà posto ad uno. In questo modo 
il programma principale possiede un’indicazione, in 
base alla quale potrà prendere le decisioni più adatte. 
In questo caso, per semplicità, si limita a stampare 
“EOF”, a chiudere il file ed a fermarsi, ma potrebbe 


Listato 4. Assembly della routine di controllo fine file. 

erg 50001 
equ 92 STRMS-HI 
equ 22 STRM80-L 
equ 23631 CMANS 
equ 23563 DEFADD 

protezione IX 

50001 DD E5 

p u s h » X 

'preparazione bc 

50003 01 00 00 

4 

Id bc,00 

•'recupero numero 

s t ream 

50006 DD 2A 0B 5C Id ix,(DEFADD) 

50010 DD 7E 04 

Id a , (ix+4) 

se e' maggiore 

di 15 dai errore 

50013 FE 10 

cp 16 

50015 30 3F 

Jr n C,ERROR-O 

calcolo offset 

in tab. stream 

60017 67 

add a , a 

'se e' 0 dai errore 

50018 28 3C 

jr Z,ERROR —o 

50020 C6 16 

add a,STRMO0-L 

50022 6F 

ld l , a 

50023 26 5C 

ld h,STRMS-MI 

'recupero offset 

per tab. canali 

50025 5E 

ld e, (hi) 

50026 23 

ine hi 

50027 56 

ld d, (hi) 

se e' 0 dai errore 

50028 7A 

ld a , d 

50029 83 

or e 

50030 28 30 

4 

Jr Z,ERROR-O 

'recupero indir. 

inizio canale 

50032 18 

dee de 

50033 2A 4F 5C 

ld hi, (CHAN5) 

50036 19 

add hi,de 

50037 E5 

push hi 

60038 DD E1 

POP ix 

e' un canale di 

* 

mi crodrive? 

, .. M „ ,. N .. f ,. T .. „ B „ 


50040 DD 7E 04 

4 

ld a , (ix+4) 

" e ' "M"? 


Listato 3. Programma con controllo di fine file. 

1 REM 

******************************** 
* * 

* LETTURA CON CONTROLLO * 

* * 
******************************** 

IO INPUT "numero flusso: f 

20 OPEN »f; "IH"; 1; "pippo" 

30 INPUT »f;i 
40 PRINT RT 10, 10.: i 
50 GO SUB 1000 

60 IF EOF THEN PRINT AT 12,10.; 

"EOF": CLOSE 8f. STOP 
70 GO TO 30 
1000 REM 

******************************** 
* * 

* SUBROUTINE DI CONTROLLO * 

* * 
******************************** 

101© LET chandis=PEEK (23574+f*2 
) +2S6*PEEK (23574 + f *2+1) 
1020 LET Chanadd=PEEK 23631+256* 
PEEK 23632+ChandiS-1 
1030 LET Ch by t e =PEEK (chanadd+11 
)+256*PEEK ( chanadd +12) 

1040 LET reclen=PEEK Cchanadd+69 
)+256*PEEK (Chanadd+70) 

1050 LET recf IgsPEEK (chanadd+67 
) 

1060 LET EOF =0 

1070 IF ehbytenrec len AND recf lg 
=2 TMEN LET EOF=l 
1060 RETURN 


50043 FE 4D 

CP 77 

50045 20 26 

jr nz,ERROR-J 

e' aperto per la 

lettura? 

(bit 0 di ch f lag 
chf lag 

resettato) 

50047 DD 7E 18 

ld a , (i x +24) 

50050 IF 

r r a 

50051 38 20 

jr c,ERROR-J 

'test sulle variabili del canale 

4 

' chby te 

50053 DD 6E 08 

ld l , (ix+ll) 

50056 DD 66 0C 

ld h , (i x +12) 

're c l en 

50059 DD SE 45 

ld e,(ix+69) 

50062 DD 56 46 

l d d, (ix +70) 

'sono uguali? 

50065 ED 52 

S bc hl ,de 

50067 20 08 

Jr nz,EXIT 

'recf lg 

5O069 DD 7E 43 

4 

ld di(ix+67* 

'il bit 1 (ultimo 
e' settato? 

re cord) 

50072 IF 

r ra 

50073 IF 

r r a 

50074 30 01 

J r n c,EXIT 

'se si' segnala EOF 

50076 03 

ine bc 

'uscita regolare 

5O077 DD E1 

pop ix 

50079 C9 

re t 

'uscite in caso di 

errore 


50080 DD E1 

pop 1X 

50082 C3 0E 16 

jp &160E 

5006^^D E1 

pop i X 

60087 03 04 15 

4 

4 

4 

JP &15C4 
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End Of File: 

da errore a funzione_ 

benissimo proseguire senza problemi. 

Avrete senz’altro notato che l’inserimento della su¬ 
broutine rallenta decisamente il programma; inoltre 
è necessario utilizzare una variabile per segnalare il 
flusso su cui va fatto il controllo. 

Per ottenere maggiore “eleganza” e velocità si è per¬ 
ciò pensato di realizzare il corrispondente in linguag¬ 
gio macchina, da usare sotto forma di FN, nel modo 
più volte descritto. 

Durante la sua stesura la routine si è arricchita di 
“accessori” atti a renderne il funzionamento “a pro¬ 
va di errore umano”. Il risultato, commentato per 
quanto possibile, lo vedete nel listato 4. 

Chiamata dopo (ma non necessariamente subito do¬ 
po) una lettura da file, la FN restituisce zero, se la 
situazione è regolare, od uno, se il byte letto era 
l’ultimo. In aggiunta ai controlli già descritti, viene 
verificata la validità del parametro dato alla FN, che 
rappresentando un numero di flusso, deve essere 
compreso fra 0 e 15 (lo 0 è in questo caso considerato 
errore, poiché non essendo possibile cambiare la de¬ 
stinazione del (lusso 0, cosa invece possibile con l’I, il 
2 ed il 3, non potrà esistere un canale di microdrive ad 
esso corrispondente), nonché la reale apertura del 
flusso corrispondente (valori in STRMS diversi da 



Listato 5. Codice macchina delia routine di controllo 
fine file. 


221 , 

229 , 

1 , 

0 , 

0 / 

221 , 

42 , 

11 

/ 

92 , 

221 , 

126 , 

4 -, 

254 , 

16 , 

48 , 

63 

/ 

135 . 

4 - 0 , 

60 , 

198 , 

22 , 

111 , 

38 , 

92 

J 

94 .) 

35 , 

86 , 

122 , 

179 , 

40 , 

48 , 

27 

J 

4.2 , 

79 , 

92 , 

25 , 

229 , 

221 , 

225 , 

221 

J 

126 , 

4 -) 

254 - , 

77 , 

32 , 

38 , 

221 , 

126 

i 

24 -, 

31 , 

56 , 

32 , 

221 , 

110 , 

11 , 

221 

J 

102 , 

12 , 

221 , 

94 , 

69 , 

221 , 

86 , 

70 

J 

237 , 

82 , 

32 , 

8 , 

221 , 

126 , 

67 , 

31 

> 

31 , 

4-8 , 

1 , 

3 , 

221 , 

225 , 

201 , 

221 

i 

225 , 

195 , 

14 -, 

22 , 

221 , 

225 , 

195 , 

196 
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Listato 6. Lo stesso programma modificato per l’uso 
con la routine in linguaggio macchina. 


1 REM 

******************************* 

* LETTURA CON CONTROLLO 

* 

* IN L/M 

■ilr 

******************************* 


* 

* 

* 

* 

* 

* 


5 DE F FN e (a) =U5R indirizzo 
10 INPUT "numero flusso: f 

20 OPEN »f;"m";l;"pippo" 

30 INPUT Ufi i 

4.0 PRINT RT 10,10; i _ 

50 IF FN e (f) THEN PRINT RT 

12/10;“EOF": CLOSE Ufi STOP 


60 GO TO 30 


zero). Un errore in queste circostanze viene segnalato 
con il messaggio 0, Invalid Stream. Nel caso invece il 
flusso sia aperto, ma non su di un canale di microdri¬ 
ve, od il file sia in scrittura il messaggio sarà J, Invalid 
I/O Device. 

Mi sembra non ci sia altro da dire. Nonostante gli 
arricchimenti, la routine occupa solo 89 byte. Il lista¬ 
to 5 è il codice macchina, completamente rilocabile 
(potete cioè metterlo in memoria dove volete), men¬ 
tre per il caricamento potete fare riferimento agli 
ormai numerosissimi esempi pubblicati dalla rivista. 


ugfc ct ® 



% cOW\P° T£B 

UNA PUBBLICAZIONE FIRMATA 

GRUPPO EDITORIALE JACKSON 


é in edicola 


r^lHOME COMPUTER 



UNA PUBBLICAZIONE FIRMATA 

f GRUPPO EDITORIALE JACKSON 
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Apple 

Cambio software per Apple II - Ile Dispongo di oltre 300 pro¬ 
grammi. Inviatemi la vostra lista, risponderò con la mia Gino 
Simonazzi - Via Luca da Reggio. 8 42100 Reggio Emilia - Tel. 
0522/553221 _ 

Cerco amico/a appassionato/a di computer per collaborazio¬ 
ne Inoltre cambio programmi solo su disco per Apple Ile Jean 
Barrai - Castel del Bosco. 131 - 10060 Roure (TO) 

Cerco per Apple II programmi scientifici e grafici Milletti Marco 

- Via S. Petronio Vecchio. 42/3 - 40125 Bologna 

Cerco software per grafici ad alta risoluzione con Apple Ile o 
Apple Ile. Vendo nuovissimo compatibile Apple: Il Microprofes- 
sor II con alimentatore, keyboard. manuale programmi a solo 
Lit 700000 Giorgio Gardini - Via Gorizia. 1 - 46100 Mantova - 
Tel. 0 376/364917 _ 

Compro, cambio software per Apple Ile Cerco programma per 
grafici ad alta risoluzione con il Ile. Anche games Vendo com¬ 
patibile Apple 64 Kbyte come nuovo a sole Lit 750000 trattabili 
Santa Passam - Via Gambara. 32 - 46100 Mantova 

Causa passaggio a sistema superiore svendo oltre 150 di¬ 
schetti contenenti software per Apple II: DataBase - giochi - 
gestionali - elaborazione testi - ingegneria - utilità - grafica - 
ecc. al miglior offerente Moltissimi manuali Richiedere elenco 
per offerte a: Maurizio Degioanni - Corso S Santarosa. 67 - 
12100 Cuneo 

Cambio programmi di ogni genere per Apple II. Inviatemi i vostri 
cataloghi e vi risponderò con i miei. Ivan Gaboli - Via XXIII 
Marzo. 228/a • 28100 Novara - Tel 0321/400451 

Vendo 200 programmi Apple, libri e riviste di informatica a Ut. 
600000. Cocciazucca Carlo - Via Montesecco. 15 - 65010 
Spoltore (PE) - Tel 085/207466 

_ Vendo, cambio programmi per Apple, ne posseggo oltre _ 
S 400. Massima serietà e celerità nel fornire il materiale ? 
5 richiesto Luigi Palumbo - Via Adealaide Ristori. 8 5 

" 00197 Roma - Tel. 06/802783 ■ 

Scambio, vendo software per Apple Dispongo tutte le novità 
1984 direttamente dagli U S A Programmi per il Ile. Ultimi arrivi 
Locksmith 5.5, Sargon III. Koala II. Scrivetemi o telefonatemi 
Massimo Gilardetti - Via Borsi. 62 - 28100 Novara • Tel 
0321/474639 _ 

Cambio, vendo software per Apple Inviatemi la vostra lista, 
risponderò con la mia. Giuseppe Di Bartolomeo - Via Pancal- 
ducci. 80 - 62100 Macerata - Tel. 0733/48211 
Cambio, vendo programmi per Apple II e compatibili: (Oiange, 
Lemon. AM 100. ecc ) possiedo lunga lista in continuo aggior¬ 
namento Per informazioni telefonare ore serali Livio Stabile - 
Via D Alighieri. 10/B - 33051 Aquileia (UD) - Tel 0431/91610 

Cambio, vendo programmi per Apple II di grafica/games Spe¬ 
dite lista. Digito programmi di qualsiasi lunghezza (anche LM) 
su disco a chi manda listato con Lit. 15000. Orlando Ferraiuolo 

- Via Francesco Spirito. 33 - 84095 Giffoni Valle Piana (SA) 

Vendo Apple II. disk drive, monitor 12". sei mesi di vita Cedo, 
contabilità generale (valore Lit. 400000). condomini, giochi, ed 
i un programma sul totocalcio. Il tutto (compreso riviste varie sul 
I computer) a Lit. 2150000. Bruno Tognoni - Via F. Crispi. 10 - 
j 57100 Livorno • Tel 0586/3615 


Commodore 


Vendo programmi su nastro per VIC 20 versione base e/o più 8 
Kbyte Duplico cartucce (si. avete capito bene) per VIC 20 più 
8/16 Kbyte (es. FORTH). Contattatemi, risposta sicura, listino 
gratuito. Andrea Ferrari - Via Gorizia. 23 - 22100 Como - Tel. 
031/276435 

Cambio 40 programmi per CBM 64 tra i quali: Simon's BASIC. 
Sintetizzatore vocale. Pacman, Falcon patrol e molti altri con 
tavoletta grafica per detto computer. Scrivete presto! Luciano 
Pagnin - Castello 2084 - 30122 Venezia - Tel. 041/700486 

C64 user vende, scambia favoloso software Giochi. Utilities e i 
più raffinati programmi per totocalcio. Tutto in linguaggio mac¬ 
china. Scrivere a: Donatella Grasso - Via S. Grande. 12 - 73100 
Lecce - Tel 0832/35179 

Compro, vendo software per CBM 64 (Robotron. Centipede) 
solo su cassetta. Inviate la vostra lista. Cerco disperatamente 
Decathlon "Activision" per CBM 64. Luca Colliva - Via Flavio 
Gioia. 2 - 00153 Roma - Tel. 06/5773381 


Eccezionale: vendo cassetta o disco per CBM 64 con 5 fanta¬ 
stici giochi tra cui Congo bongo. Buck Rogers. Pole position. 
Donkey kong e Poyan. Possiedo inoltre molti altri titoli. Il prezzo 
è compreso tra L«t 35000 e Lit. 40000 Michele Danese - Via G 
Rossini - 37044 Cotogna Veneta (VR) - Tel 0442/85287 

Vendo, cambio per Commodore 64 giochi e utility preferibil¬ 
mente su disco. Telefonare o scrivere a: Parissi Eraldo - Viale 
Dei Mughetti. 36 - 10151 Torino - Tel. 011/734354 

Vendo ottimi programmi per il VIC 20 a prezzi da sballo Se sei 
un principiante non perdere questo affare! Per maggiori infor¬ 
mazioni scrivere a: Massimo Tabasso - Piazza Molineris. 1 - 
12038 Savlgliano (CN) 

Vendo, cambio programmi per CBM 64. sia su nastro che su 
disco Possiedo circa 150 programmi di elevata qualità che 
vendo a basso prezzo. Inviate la vostra lista, riceverete la mia 
gratuitamente. Giuseppe Mascali - Via R Margherita. 573 - 
98028 S. Teresa Riva (ME) - Tel. 0942/791692 _ 

Vendo VIC 20 (Febbraio 84) più 2 cartucce originali piu oltre 30 
giochi piu manuale piu libro giochi a Lit. 250000. Telefpnare ore 
13-14. Giulio lannotti - Via Vittorio Emanuele. 92 - 71033 Casal¬ 
nuovo Monterotaro (FG) - Tel. 0881/958456 

C64 Club costituitosi a Lecce Vasta biblioteca software Idee, 
opinioni, consigli. Grandi facilitazioni per i soci. Richiedere 
maggiori informazioni a: C64 Lecce Club c/o Giorgio Primiceri 
- Via Sauro. 87 - 73100 Lecce - Tel.0832/45344 
Per CBM 64 compro, cambio, vendo programmi su cassetta 
cerco manuali sia hardware che software Acquisterei se vera 
occasione drive 1541 Rispondo a tutti Gianni Dal Zotto - Via 
Garibaldi. 10 - 17027 Pietra Ligure (SV) 

Cerco Pascal e Screen graphics per C64. Posseggo 60 giochi 
(Zaxxon - Aztec - Burgertime - Pole position - Scacchi - Le 
Mans) e 20 utility (Simon's BASIC - Tool kit - Turbo tape) tutti su 
cassetta. Sergio Di Nardo - Via Monte Velino. 15 - 67100 
L'Aquila - Tel 0862/61633 

Cerco fotocopie per l'uso del Tool kit sui Nr 12-13 di ‘Personal 
Software" Vendo per C64 cartucce originali Commodore “Ra¬ 
dar rat race" e "Music editor" a Lit. 30000 cadauna oppure Lit. 
55000 in blocco. Franco Rizzo - Via Avogadro. 28 - 95122 
Catania - Tel 095/475629 

Per CBM 64 cambio, vendo programmi su disco/cassetta 
Offerte per pacchetti stabiliti o concordabili a partire da Lit. 
20000 per 15 programmi Bene accetti gli scambi, risposta 
assicurata a tutti Maurizio Mellone • Via Sabbionara. 9 - 36061 
Bassano del Grappa (VI) - Tel 0424/20015 

Cambio unicamente programmi per C64. Cerco programmi di 
ingegneria ex legge 373. ingegneria 1. computo metrico, revi¬ 
sione prezzi, ecc Allegare lista con eventuali prezzi se in ven¬ 
dita Fulchero Silvano - Via Umberto. 130 - 12039 Verzuolo 
(CN) - Tel. 0175/85814_ 

Cambio programmi per il CBM 64. sopratutto giochi: One on 
one, Baseball. Shamus chase 2. Zaxxon. Manie miner. Blue 
Max e altri Cerco Jet set Willie. Siren City, China mmer. Solo su 
nastro Tiziano Leone - Via Crispi. 49 - 85100 Potenza • Tel. 
0971/25458 

Cambio, vendo per CBM 64 oltre 100 ottimi programmi su 

nastro (giochi, utility, ecc.). Sono tutti originali americani e 
inglesi in L.M. L'annuncio è sempre valido. Inviare liste o telefo¬ 
nare ore pasti Andrea Mamini - Via Cantagalli. 19 - 48018 
Faenza (RA) - Tel. 0546/25474 

Per Commodore 64 vendo più di 50 stupendi giochi a scelta su 
cassetta e cartndge. Prezzi da trattare. Assicuro una risposta a 
tutti, ogni 10 giochi acquistati 5 gratis. Telefonare ore pomeri¬ 
diane. Marco De Fano - Via Casteldelfino, 47 - 10147 Torino - 
Tel 011 /258696 

Se desideri una copia dei programmi protetti su cassetta per 
Commodore 64. spediscimi il nastro e ti inciderò, sul retro, lo 
stesso programma senza protezione. Giorgio Martini - Via Pu- 
steria. 7 - 39038 S Candido (BZ) - Tel. 0471/73497 
Vendo per CBM 64 cassetta contenente. Simon's BASIC. He- 
smon. Calcio. Turbo tape. Pipeline. Fort Apocalypse. Basket. 
Tutto per sole Lit. 65000. Telefonare ore pasti Fabiano Zara - 
Via Cartera, 43 - 31100 Treviso - Tel. 0422/65023 
Per C64 dispongo di 700 programmi Arrivi mensili dalla Ger¬ 
mania e dagli U.S.A. mi permettono di avere sempre le ultime 
novità. Annuncio sempre valido, rispondo a tutti! Franco Fanto- 
ni - Casella Postale 259 - 51100 Pistoia 

Per VIC 20 vendo cassetta registrata con 40 giochi a Lit. 20000 
Per avere la lista scrivere a: Paolo Lavezzi - Via Oberdan. 23 - 
45100 Rovigo 

Attenzione! Vendo Sintetizzatore vocale per Commodore 64. 
completamente su software, vocabolario infinito' A sole Lit 
50000 (prezzo commerciale: Lit. 150000) Massima serietà 
Alessandro Tavella - Via Maria Malìbran. 19 - 00167 Roma - 
Tel 06/6215200 _ 

Vendo, cambio programmi per CBM 64 Ho Zaxxon. Lode run- 
ner. Zeppelin rescue. Monopoli. Strip poker. Austrocompile. 
Momeword, Turbodisk. Archivio dischi e altri. Telefonare ore 
serali. Antonio Mandalà - Via Interna. 40 - 33170 Pordedone • 
Tel 0434/32231 


Cambio e vendo oltre 300 programmi per Commodore 64 
Cerco possessori in zona Parma per scambio idee e consigli 
Rispondo a tutti. Possiedo le ultime novità dagli U S A. Scrivete 
o telefonate ore pasti Paolo Cobianchi - Via Puccini. 3 - 43100 
Parma - Tel. 0521/25896 

Per CBM 64 vendo casetta con giochi e utility completa a Lit 
50000 tra cui Data Base. Scacchi, Sci. Ostrica, Turbo tape, 
Sintetizzatore. Pagamento a mezzo vaglia postale Francesco 
Donia - Via Ugo Soli. 9 - 90128 Palermo 

Cambio con utenti Commodore programmi per VIC 20 e Com¬ 
modore 61 e cerco soci per fondare Commodore club. Telefo¬ 
nare o scrivere a: Maurizio Lattuada - Via Panizzi. 13-20146 
Milano • Tel. 02/427890 

Vendo VIC 20 più C2N piu 3 cartucce (Roadrace. Jupiter lan- 
der. Sargon II Chess) piu 400 programmi di cui più di 100 in 
linguaggio macchina Tutto in perfette condizioni a Lit. 500000. 
Massima serietà Renzo Radollovich - Via Marco Polo. 4 - 
34074 Monfalcone (GO) - Tel 0481/711432 

Cambio, vendo utility e giochi per CBM 64, supporto floppy 
disk. Annuncio sempre valido Inviate la vostra lista a Claudio 
Butturim - Via Blumenstihl. 45 - 00135 Roma • Tel. 06/3496574 

Vendo Commodore VIC 20 nuovo e mai usato per Lit. 135000 
trattabili. Telefonare ore pasti serali Inoltre cambio software 
per Commodore 64. Massimo Petazzom - Via Azalee. 4 - 20070 
Dresano (MI) - Tel. 02/9818346 

Scambio idee e molto software su cassetta (giochi, utility) per 
VIC 20 sia in BASIC che in linguaggio macchina Telefonareore 
pasti. Fabio Siam - Via Buonarroti. 19 - 20149 Milano - Tel 
02/4694089 

Vendo a Lit. 500000 non trattabili perchè nuovo floppy 1541. 
vendo moltissimi giochi (Olimpiadi. Basket, Killer, ecc.) ed utility 
4.5 Fast copy. Doudle. FORTH ecc a prezzi di regalo Ornella 
Vergotti - Castello 6574 - 30122 Venezia 

Vendo per C64 eccezionali giochi ed utility su cassetta. Richie¬ 
dere la lista Rispondo a tutti. I giochi sono tutti in linguaggio 
macchina. Franco Papotto - Viale Italia, 37 - 34073 Grado 

Causa doppio regalo offro CBM 64 piu registratore C2N e 
garanzia originale italiana di 3 mesi a Lit. 660000. Vendo sepa¬ 
ratamente il 64 a Lit. 560000 Telefonare ore pasti Cesare 
Bernardelli - Via Monte Kosica -41100 Modena • Tel 211938 

Vendo o cambio giochi per CBM 64 Telefonare dopo le ore 20. 
Franco Radice - Via F Ingegnoli, 25 - 20131 Milano - Tel. 
02/2899553 _ 

Compro, cambio, vendo programmi per C64 Cerco Olimpiadi 
su cassetta. Vorrei formare un club. Dispongo di videogames 
bellissimi tra cui Pole position. Forbidden forrest. Matteo Oli¬ 
viero - Via Marconi, 62 - 80056 Ercolano (NA) - Tel 
081/7393829 

Cambio, vendo programmi solo su cassetta per Commodore 
64 Possiedo giochi ed utility (Kong. Calcio. Data Base. Biliardo, 
ecc ). Claudio Danesin • Via Cesare Battisti. 4 - 30020 Marcon 
(VE) - Tel. 041/459569_ 

Vendo per VIC 20 in blocco 30 programmi su cassetta, giochi e 
Utilities in L M Inviare cassetta più Lit. 150000 e spese postali 
Massima serietà Igor Cossutta - Via Mighetti. 1 - 34170 Gorizia 
• Tel. 0481/82880_ 

Vendo, compro, cambio software per VIC 20 su nastro espansi 
e non Posseggo numerosi e bellissimi programmi L M Ottimo 
prezzo, cerco solo bei programmi Inviate la vostra lista e/o 
chiedete la mia. Mario Novelli • Via Cavour. 15 - 21013Gallara- 
te (VA)_ 

Vendo programmi per C64 (utility, giochi) a prezzi interessanti 
Per informazioni scrivere o telefonare a Marco Nobilio - Via 
Leonardo Da Vinci. 116 - 20099 Sesto S Giovanni (MI) - Tel. 
240290 

Scambio software per Commodore 64 Dispongo di oltre 500 
programmi Telefonareore 19-20 Fabrizio Parenti - Via Pram- 
polim, 5 -43100 Parma • Tel 0521/72924 

Cambio, compro, vendo software per C64. Inviate le vostre liste 
Rispondo a tutti inviando la mia lista Posseggo 150 programmi, 
richiedere la lista gratuita Roberto Villini - Via S. Anna. 5 - 
46049 Volto Mantova (MN) - Tel. 0376/838027 

Vendo o cambio programmi solo in turbo Mandare lista, ri¬ 
spondo a tutti Assicurata massima serietà e velocità negli invi». 
Solo programmi per CBM 64 su nastro Molti giochi, novità. 
Massimo Selleri - Via Don Minzoni, 72 • 45100 Rovigo 
Cambio, vendo programmi per CBM 64 a prezzi ragionevoli 
esclusivamente su cassetta con Turbo tape. Richiedo massima 
serietà. Richiedere e spedire liste a: Ezio Pitton - Via Zorutti. 10 
- 33070 Casarsa (PN) - Tel. 0434/869950 
Vendo programmi per VIC inespanso Ben 6 Aracadia games in 
una sola cassetta a sole LiL 50000. Per informazioni. Giuseppe 
Nordio - Piazza Biade. 11 - 36100 Vicenza - Tel 044/39066 

Compro, cambio, vendo software per CBM 64. Dispongo di 250 
programmi Ira utility, grafica e giochi eccezionali. Cerco inoltre 
“Flight simulator" Gradito scambio liste L'annuncio è valido 
sempre Carlo Banino - Via IV Novembre.23 -13060Sandiglia- 
no (VC) - Tel. 015/691401 
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Cambio programmi per Commodore 4032 di ogni genere, gio¬ 
chi utility, gestionali van Alfredo Casoano • Via Mons Virgilio 
105 85029 Venosa (PZ) Tel 0972/32915 

Vendo VIC 20 appena 3 mesi di viia in perfetto stato con 
imballo originale piu cavetti di collegamento piu alimentatore 
piu modulatore TV piu manuale in italiano piu oltre 100 giochi 
(molti in LM) a Lit 200000. Luca Babbuini - Via Passaggio 
□ Assisi - 06081 Assisi (PG) - Tel 075/814397 

Vendo VIC 20 più espansione 3 Kbytes piu 16 Kbyte RAM p«u 
corso BASIC 1 più joystick piu 85 programmi LM piu 200 
programmi Basic prù cartuccia "Ride on Fort Knox" più 20 
riviste a Lit 550000 trattabili N B il valore del software è 
superiore allhardware Francesco Cottarelh • Via PAdre Ono¬ 
rio 20 43100 Parma - Tel. 0521/24184_ 

Vendo VIC 20 più registratore 1530 C2N piu espansione 16 
Kbyle RAM più programma contabilità giornaliera, tutto a sole 
Ut. 390000 Regalo manuali introduttivi o giochi su cartndgee 
su nastro solo Torino Fabrizio Garcia • Corso Siracusa. 142 • 
10137 Torino - Tel 011/3090784 

Per CBM 64 vendo e scambio bellissimo software ultimissime 
novità Dallas Mr Mephisto. Pongo Leonardo Rossetti - Via 
Oomzetti 72 - 50018 Scandicci (FI) • Tel 055/750815 

Attenzione nuovi possessori del Commodore 64 cambio e 
vendo numerosi programmi giochi e utility a prezzi bassissimi 
Esempio cassetta contenente 50 programmi Lrt 40000 piu 
spese postali Nicola Pisilli - Via Molinello di Lorenteggio. 15 - 
20094 Corsico (MI) • Tel 02/4408947 

Vendo, cambio software su cassetta per CBM 64 Sono in 
possesso di numerosi ed interessanti programmi (Simon's BA¬ 
SIC. Donkey kong. Soccer. Defender DataBase, ecc.) Richie¬ 
dere lista Lucio Tortaio - Via Monte Grappa. 12 - 30020 Mar- 
oon (VE) - Tel 041 /459882 

Ho da poco acquistalo un Commodore 64 necessito di qualun¬ 
que tipo di software, solo su cassetta (giochi, linguaggi gestio¬ 
nali. ecc ) Inviatemi le vostre liste con relativi prezzi Antonio 
Tummolo - Via Cilea. 8 - 71048 Stornarella (FG) - Tel. 
0885/32065_ 

Cambio il mio personal Commodore 4032 con personal porta¬ 
tile completo di video e programmi di gestione aziendale Silvio 
Va (satina Via GB Sammartmi. 35 - 20124 Milano - Tel 
02/6880631 _ 

Vendo pur C64 cassetta con 8 splendidi programmi tra cui il 
gioco del biliardo. Arcadia 64. Sintetizzatore musicale. Piano¬ 
forte e altri giochi tutti in LM. a sole Li! 40000 piu spese postali 
Massimo Guccione - Via Serraspiga 14 - 87100 Cosenza - Tel 

0964/33966 __ 

Compro cartuccia espansione 8 Kbyte RAM per VIC 20soioa 
modico prezzo e in buone condizioni Nicola Bosco • Via Polito. 
Il - 90100 Palermo - Tel 091/216134 

i/a e provincia cerco possessori Commodore 64 per 
scambio programmi di qualsiasi genero Dispongo di oltre 100 
programmi, »n prevalenza giochi Includere propria lista Alber¬ 
to Moileazzi • Via Lago di Garda 79 - 36100 Vicenza - Tel 
0444/920474 

Per C64 vendo, cambio software su disco o cassetta Posseg¬ 
go 400 programmi di ogni tipo, tutte le novità Invio lista gratuita 
con nr blocchi - prezzi - commento Celerità nelle risposte 
Inviate la vostra lista Brunella Cimadomo - V«a B de Falco. 14 • 
. - \ i; •- -61 21912.1 

Cambio programmi per C64 (circa 80) ira cui Potè posnion 
BC quest (or txes, Forbidden foresi. Buck Rogers.Jumpm Jack 
Pii stop. Hungry Horace Simon's BASIC. Soccer e altri Jacopo 
Porri Via Muri© 13 - 00146 Roma • Tel. 06/5281064 

Compro per Commodore 64 programmi di ogni genere in bloc¬ 
co Inviatemi la vostra lista con relativi prezzi Scrivetemi oggi 
stesso Salvatore Faugno • Via S Giacomo dei Capri. 129 
80131 Napol r.- 463829 

Vendo giochi per Commodore 64 a LM 5000 ognuno (Scacchi 
Atomo Otheflo. Black Jack ecc i Ogni 10 giochi acquistati 
cassetta e spese postali gratis Antonio Russo • Via S Cristofo¬ 
ro P co scarano Is. 5/A - 80055 Portici (NA) 

Posseggo un CBM 64 e vorrei formare un club in zona emiliana 
romagnola con ragazzi da 10 a 16 anni Scrivete per informa¬ 
zioni a; Bnietti Filippo • Via Vasco Do Goma. 15 - 40131 Bolo¬ 
gna • Tel 350879 

Vrinio h i! io giochi per CBM 64 Pit stop. Soccer. Manie 
minor. Falcon padol. Poyan Pacrnan. Hunch back. 3Dspeed 
duel. Le Mans Turbo tape ecc Richiedere lista Cerco utility 
Enrico Viotto - Via Tonno. 58 - 10090 Bruino (TO) - Tel 
011/9087197 


Vendo per C64 cassetta contenente 14 giochi originali in LM 

ira cui Soccer. Pit stop. Sk’amble, Fort Apocalipse. Kong For¬ 
bidden Forest ed inoltre Turbo tape. 64 mon, Simon's BASIC, a 
sole LM 45000 Graziano Ponzo • Via C Battisti. 3 • 0030 S 
Cesareo (RM) - Tel 9587104 

Per CBM 64 vendo fantastici programmi in LM Ne ho molti e di 
vano genere rispondo a tutti coloro che invieranno la lista. 
Cerco inoltre integrato MOS 6510 nuovo o Quasi tale France¬ 
sco Petrelii - Via Mannosci. 14 • 73100 Lecce - Tei 591196 

Cambio vendo oltre 300 programmi per M Commodore 64 
Posseggo potenti copiatori e altro (Clone machine - Lock- 
s/nilh) Sergio Ferrara - Via C Placane 53 - 20129 Milano - 
Tel 0 2 / 276833 _ 

Cambio, vendo circa 500 programmi per CBM 64 Reduce da 
un viaggio m America possiedo le più grandi novità Telefonate 
o scrivete inviando le oslre liste a Silvio Panetta - Via Matilde 
Serao. 4 - 10141 Torino • Tel. 011/373647 
Cambio giochi e Utilities per CBM 64 Posseggo Turbo tape 64. 
Pharaoh s curse. Camels revenge e altri 60. tutti in linguaggio 
macchina Inviare lista e manderò la mia Francesco Firpo • 
Viale Saffi. 61 - 15067 Novi Ligure (AL) 

Cambio per G8M 64 software f .iti- richiesta spedendo la vo¬ 
stra lista Annuncio sempre valido Maurizio Castaido - Via 
Guerrina. 22 - 45027 Trecento (RO) 

Vendo programmi per CBM 64 • VIC 20 A chi mi scrive invierò 
la lista Le lettere senza indirizzo verranno cestinate Scrivete» 
Lorenzo Dominici - Viale Picchioni. 45 • 00019 Tivoli (RM) - Tel 
0774/23387_' “ __ 

Cambio programmi (listati o cassette) per CBM 64. Vendo inol¬ 
tre numerosi listati per altri computers (Sinclair. TI 99. Apple 
VIC 20. Sharp, ecc i Mandare e/ o richiedere lista (specificare «l 
t»po di computer) Francesco Alleata - Via Monteforte 66B 
96100 Siracusa (SR) 

Vuoi comperare software per il tuo CBM 64‘> Hai trovato chi li 
può offrire circa mdle programmi di gioco ed utility. Moltissime 
io novità di importazione Luigi Beviglia - Casella Postale 41 - 
21052 Busto Arsizio (VA) 

Cambio programmi pei CBM 64 Inviare lista a Fernando For 
ner Via Valperga Caluso. 21 - 10125 Tonno - Tel 
011/6506538 

Vendo programmi per CBM 64 a prezzi stracciati (giochi Ut 
5000» telefonate per avere gratis e senza impegno listino e 
aggiornamenti Guido Sorso • Btg Feltro. 24-31100 Treviso • 
Tel 0422/20008 

Sul catalogo che offro gratis dispongo di circa 270 giochi 
versione base e da 16 Kbytes per il tuo VIC 20. Posseggo tutti i 
giochi da cartndge salvati su nastro Commodore Diego Gelso¬ 
mino - Via Cervignano. 2 - 20142 Milano - 575444 

Vendo a i >t issoooii rivoluzionario ‘ Ultra copy" <i programma 
americano col quale al 100ii> potrete copiare ogni programma, 
anche il piu protetto Prudente Fabrizio • Via L Tripoli. 7/o 
64100 Teramo (TE) - Tel 0861/411184 

Vendo videogiochi per Commodore 64 a Lit 10000. Programmi 
utility come easy File e Script • SoperBase - Magie desk - Pel 
Speed - simulatore d« volo e a Un a LM 30000 Possiedo inoltre 
tutti i tipi di back up Nicola -Lavopa - Via T Cardarelli 22 • 
70125 Bar. - Tel 080/472842 

Cerco CBM 64 in ottime condizioni piu manuale guida m italia¬ 
no purché il prezzo sia accessibile Vendo anche programmi 
per VIC 20 Telefonare ore pasti Davide Caturano - Via Ansio- 
(eie 1 • 80038 Pomigliano D'Arco (NA) - Tel 081/8842118 

Vendo per C64: analisi prezzi, elenco prezzi unitari, computo 
metrico, calcoli per tacheometro tutti per lavori stradali LM 
5000 travi, pilastri, muri sostegno LM 20000. rete ior LM 20000 
inviare cassetta più spese postali Walter Concas - Via Costitu¬ 
zione. 30 • 09031 Ai bus (CA) 

Se hai on Commodore 64 ti sarai accorto di quanto sia lento nel 
salvare e caricare i programmi Vendo a LM 12000 eccezionale 
programma che aumenta di 10 volte la velocità del registratore 
Marzio Maretti • Via G Rosami. 21 - 50144 Firenze - Tel 
055/364776_ _ 

Vendo, compro, cambio programmi per Commodore 64 a prez¬ 
zi sbalorditivi, cerco inoltre Drive 1541 e interfaccia. Inviare lista 
a Gianni Mazzesi - Via Cella. 329 - 48020 S Sielano (RA) - Tel 
0544 Z573529_ 

Vendo per Commodore 64 10 programmi su cassetta ira cui 
$»am Sintetizzatore vocale italiano e inglese più Turbotape (per 
velocizzare il caricamento) piu Simon s BASIC piu Data Base 
Tutto a Lit 35000 Paolo Anania - Via Capuana 56 - 00137 
Roma - Taf. 06/823514 _ 

Cambio, compro, vendo programmi per Commodore 64 Vendo 
cassetta con 20 programmi a LM 30000 (Pittali - Decathlon • 
Zaxxon - Sam) Giancarlo Testi-Via F PatriziodaCherso. 6mt 
6 - 00143 Roma - Tel 06/503867 

Cambio, vendo software per Commodore 64 Possiedo un cen¬ 
tinaio di programmi e bellissimi videogames. fra cui Buck Ro- 
gers invio • programmi solo su nastro Franceso Sogna - Via 
Copernico 12 Praz Capocavallo • 06073 Cordano (PG) • Tel 
075/605210 


Vendo interfaccia convertitore RX/TX RTTY per Commodore 
64 oppure solo schemi e istruzioni per il montaggio Nicola 
Lavopa - Via Cardarelli. 22 • 70125 Bari - Tel 080/472842 

Cambio, vendo programmi per Commodore C64 Ne ho circa 
500 Scrivetemi o telefonatomi, rispondo a tutti Arnaldo Reslelli 
Via Melzi, 135 - 20025 Legnano (MI) - Tel 0331/59458? 

Vendo per Commodore 64 programmi di ogni genere su cas¬ 
setta o disco a prezzi eccezionalmente bassi comprese ultime 
novità richiedere lista gratuita spedizioni ovunque Gabriele 
Fanelli - Via Zaccagnim 129 - 00128 Roma - Tel 06/6151345 

Per CBM 64 vendo 10 programmi a vostra scelta a Lit 50000 
totali m contrassegno, compresi floppy/cassetta e spese po¬ 
stali Fra i titoli Olimpiadi, Multipian. Strip poker Beached • 
Superbase ed altri 300 in lista Claudio Sedussi - Via Almict 16 • 
25086 Rezzalo (BS) • Tel 030/2792201 

Vendo VIC 20 registratore C2N. super expander, 8 Kbytes 
RAM. bi-slot. programma reference. VIC revealed. tre cassone 
programmi a LM 550000 trattabili Domenico Pozzetto • Viale 
Virgilio. 48 - 34170 Gonna • Tel 0481/83775 
Vendo per C64 programma Totocalcio sistema statistico con 
controllo punteggio conseguito a Ut 30000 In omaggi pro¬ 
gramma sistema ridotto e percentuale, il tutto solo su disco. Per 
altre informazioni scrivere o telefonare dalle 14 30 afie 15 30 
Calcedonio Meli - Via G Amico Valenti. 89 - 93100 Cattaci setta 

- Tel 0934/23365_ 

Vendo, per Commdore 64. lutti (o quasi) i lipi di programmi su 
disco Fabrizio Boni • Via Biscaretti. 2 - 10025 Pino Torinese 
Tel 011/840894 

Per C64 posseggo circa 400 giochi e utilty Sono interessalo a 
contatti con altri 64isti Ho in particolàre Summe* games, Aero¬ 
bica. Koala. Clone. Magic desk Turbo tape, e giochi dell'Activi- 
ston Inviate la vostra lista e riceverete la mia. oppure telefonate 
dalle 14 alle 16 e dopo le 21 Alfonso Di Noia - Via Davila 61 • 
00179 Roma - Tef 0 6/7884472 

Vendo programma Turbo tape a prezzo bassissimo LM 15000 
su cassetta (compresa 1 ) Risparmiate tempo e spazio: scrivete o 
telefonate a: Francesco Tosi - ViaDiTrasone. 6- 00199Roma - 
Tel 06/8381140 

Vendesi per VIC 20 espansione da 16 Kbyle a Lit 130000 e da 3 
Kbyte piu grafica a Lit 50000 Tutte due originali Commodore 
Inoltre vendo tn-slot a LM 20000 Chi compra tutto in blocco 
avrà m regalo il joystick Commodore Roberto Oseliadore - Via 
Passo S. Boldo. 35/2 - 30030 Favaro Veneto (VE) - Tel 
041/631106 (ore 17-18) 

Cambio, vendo programma su nastro per Commodore 64 "Pol- 
henot Catasto e No" a Lit 30000 Vendo o cambio con pro¬ 
grammi pan valore Matteo Gianera - Via Lago di Garda. 41 • 
48100 Ravenna 

Acquisto Commodore 64 con registratore o floppy disk Tele 
tonare a: Giorgio Zucchi - Via Cappuccini. 93 - 07037 Sorso 

I 

Cambio programmi e opinioni sul Commodore 64 Rispondo a 
tutti se massima serietà Gabriele Raiti - Via Rosselli, 113 - 
96016 Lentim (SRI 

Cambio, vendo programmi per Commodore 64 anche su (àteo, 
possibilmente con istruzioni inviare liste e proposte rispondo 
a tuo. Sergio De Pollo - Via Calvi. 16 - 31020San Fior (TV) - Tel 
0 438/768072 _ 

Cambio vendo favolosi programmi per CBM 64 (International 
Soccer. Frogger. Frogger 3D Simon's BASIC, Magic desk. 
Zodiac. The pyramid. Killer Watt. Solo Flrght e l'eccezionale 
Decathlon) a LM 10000 Marco Scataglini • Via Monteverdi. 3 
51016 Montecatini Termo (PT) - Tel 74781 

Compro, cambio, vendo programmi per Commodore 64 Ne 
posseggo oltre 100 tra cui Falcon patrol, Doctor J and Larry 
Btrd. Robotron International soccer. Poleposition. linguaggio 
Utilities Attilio Bruno • Via Mrfano. 1 - 66100 Chieti Tel 
0871/31640 

Cambio vendo programmi per C64 Ne ho più di 100 fra giochi 
ed utility Rispondo a tutti, massima serietà L annuncio e sem 
pre valido Rosario Ciactmlno - Via S Girolamo. 61 - 92100 
Agrigento - Tel 0922/24168 

Compro, cambio, vendo giochi • utilità per CBM 64 Eventuale 
scambio liste molti e acquisto joystick con lire automatico 
' Spectravideo" mod SV-102 Quick Shot II: solo se in buone 
condizioni Roberto Annibali - Via Comandino. 13 • 61029 
Ur bino (PS) - Tel 0722/4 9012 

g Compro cambio, vendo programmi per C64 & qua»s>.> — 

g genere. s<a su nastro che su disco Rispondo a tufi- 5 
m Paolo Secca - Via Roma 1 /F - 06063 Magione (PG) J 
Tel 075/843798_■ 

Per CBM 64 compro 8giochlinLMi i 

Possiedo oltre 400 eccezionali programmi. Clone machine, 
lantastico backup LM su dischi anche protetti con 1 drive, 
massimo 2 minuti Aduano Gambi • Via Belvedere. 204 - 80127 
Napoli • Tel. 081/655397 

Compro Super expander per VIC 20 o stampante Commodore 
per VIC 20 Andrea Feo - Via G Puglis» Bertolino. 2 - 90139 
Palermo - Tel 091/334098 
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Cambio, vendo programmi di ogni genere per C64 Cerco 
inoltre Turbo disk da cambiare con altri programmi Dispongo 
del programma Koala Lo scambio può essere effettuato sia su 
disco che su cassetta Fabnzio Ganem • Via Luigi Zambellt 32 - 
00152 Roma • Tel 06/5376130 

Commodore 64 vendo programma gestionale memorizza 
fatture ai fini IVA. stampa registro o corrispettivi, provvede alla 
liquidazione trimestrale, stampa l'elenco annuale clienti/forni- 
tori e dichiarazione annuale IVA Luciano Usuelli Via Isonzo 
31 • 2110 0 Vareso • Tel 0332/242596 

Cambio vendo per CBM 64 mollissimi programmi -s 
utility su disco o su nastro Annuncio sempre valido Antonio 
Rizzo - Via T Tasso 45 73100 Lecce • Tel 0832/53675 
Cercasi possessori di Commodore 64 e VIC 20 possibilmente a 
Milano per scambio programmi Telefonare dalle 15 alle 20 
Domenico Celtamare • Via Leone Tolstoi 31 -20100 Milano • 
Tel 02/4222307 

Cerco utenti CBM 64 per scambio software sono disposto 
anche ad acquistare Ho il floppy disk driver Vasto elenco 
programmi, ultime novità giochi Damele Rossi - Via B Croce 
11 - 2 0075 Lodi (Mll - Tei 0371 /55374 

Compro, cambio, vendo tutto il software per CBM 64 R.ch.ede 
re o inviare lista Antonio Agus - Via S Antomo 31 090’6 

Iglesias (CA) 

Vendo per C64 una cassetta con I seguenti programmi Othello 
* Torri di Hanoi • Painter - Città - Simon • Demoni di Osars II 
tutto a Lit 25000 piu spese di spedizione Roberto Caputo • Via 
Roma 19 - 81030 Teverola (CE) - Tot 081 /8118104 

Vendo Commodore 64 con pochi mesi di «Ita registratore 
Datassette 1530. plotter 1520. libri sul C64 e due giochi Tutto 
ancora in garanzia a Lit 750000 Telefonare ore cena Luigi 
Spinelli Via Galilei. 10 20017 Rho (MI) Tel 02/9314957 

Vendo e cambio software por CBM 64 Possiedo moltissimi 
giochi ed Utilities. Chiedere lista e spedire la propria Rispondo 
a tutti Alberto Pairotti - Via Della Rocca, 6 - 10123 Torino - Tel 
011/882208 

Vendo stampante Commodore MPS801 m ottime condizioni a 
Lit 350000 Telefonare dopo le ore 19 Nicola Buccommo - Via 
1 Corndom. 1 • 20091 Bresso (MI) • Tot 02/6104193 

Scambio programmi Commodoro 64. disponici 
chi e 110 Utilities Risposta assicurata o coloro che invieranno 
la propria lista Maria Antonia Monti Casella Postale 45 • 
55052 Fornaci d. B/irqa (l Ui 

Cambio, vendo software per CBM 64, prezzi bassissimi per 
Giochi (One onone. Buck Rogers. ecc ) e programmi applicativi 
(Simon’s. FORTH, ecc ). Scrivere per ricevere o spedare lista - 
programmi Mano Pellegrino • Via Cavour. 68 • 65100 Pescara 

Per CBM 64 vendo cassetta contenente Wimbledon 64 Space 
pilot originali americani e Gafnxy. Oix. Burgertrme. Brands a Ut 
20000 Telefonare per accordi Franco Foschi • Via Corefli 24 - 
47100 Forti • Te» 0543/65384 

Vendesi per VlC 20 programma che permette la duplicazione 
di cartridge su cassetta a Lit 8000 (per i esecuzione del prò 
gramma occorre l'espansione 8 o 16 Kbytc con una piccola 
j modifica) Spedisco inoltre, su richiesta chiara e dettagliata 
sptegazioneperlamodificaafl'espansione Telefonare Andrea 
Panella - Via Castelli. 19 - 56025 Pontede<a (Pii - Tel 
0587/2122 56 

Cerco Supergraphic exapander 3 Kbyte ; , 

prezzo Pei favore, contattatemi Luigi Spiegel - ViateMontero- 
sa. 13 - 20144 Milano - Tel 02/4695342 

Vendo, compro cambio programmi per CBM 64 a prezzi sba¬ 
lorditivi. pei informaziomscrivereotelefonareal seguente indi¬ 
rizzo: Gianni Mazze» • Via Cefla. 329 - 48020 S Stefano (RA) - 
Tel 0544/533529 

Per CBM 64 cambio, vendo programmi mandatele vostre liste 
Rispondo a lutti Cerco Pel speed o simile e cambio con favolo¬ 
so programma di totocalcio (Llt 30000 da solo) Paolo Paltara - 
Piazza Salerno 73100 Lecce - Tel 0832/54514 

CBM64 vendo .. sole l it 50000cassetta con io videogio- 

chi Soccer - Squish'em • Seawolf - Quasar • Huster Jawbrea- 
ker - Motormania - Hunch back - Fori Apocalypse Pole 
position lutti in Turbotape che do in omaggio! Rosalba Balducci 
- Via Baccaram. 7 • 60100 Ancona • Tal.071 /55089(or. 

Vendiamo eccezionali novità programmi per CBM 64 - video- 
giochi - utility - gestionali Richiedeteci lista, prezzi interessan¬ 
ti Disposti anche a scambi Scrivete a Maurizio e Corrado 
Maestri - Via G Genocchi 492 • 47023 Cesena (FO) Tel 
0547/28325 


Compro vari giochi su cassetta per Commodore 64 in partico¬ 
lare cerco "Donkey kong' inoltre vendo programmi Dieta, gio¬ 
chi tipo "Awan game". 'Zigzag". 'Il genio che indovina it no¬ 
me". ecc Massimiliano Caradonna - Via Matita. 1 - 930l2Geia 
(CL) - Tel 0933/917912 

Eccezionale 1 Vendo VlC 20 e 20 videogame su cassetta 2 

videogame su cartuccia e 2 libri a Lit 200000 Telefonare ore 
pasti Lorenzo Conti - Via G da Procida. 5 • 20100Miiano - Tel 
02/3491306 

Vendo, cambio programmi di grafica, utility, giochi » 

per CBM 64 VIC 20 e ZX Vendo inoltre un corso per imparare 
facilmente a programmare Non dovete lar altroché scrivermi 
Marco Salley - Via XXIV Maggio. 7 - 36054 Montebollo(VI) • Tel 
0444/749024 

Compro, vendo, cambio software per Commodore 64 molti 
giochi (Greedy. Slalom. Qix. Gndder Domino. Briscola, ecc )e 
molte Utilities (Totosistemi. Bilancio familiare. Geometria. Di¬ 
dattici. ecc ). Prezzi stracciati Marco Saltarelli • Via XXIV Mag¬ 
gio. 7 - 36054 Montebello (VI) Tel 0444/749024 

Vendo programmi su cassetta per VlC 20 a prezzo eccezionale 
una cassetta con 15 giochi a sole Lit 13000 Chiedere liste 
Giuseppe Menna • Via Madonna di Fatima 24 - 84100 Salerno 
♦ Tei 089/35915 

Disponendo di un archivio di oltre 1500 programmi, vendo o 
cambio programmi con tulli ai prezzi migliori Cassette con 50 
giochi Lit 50000 Procuro programmi su richiesta Renato Do- 
mus - Via C rimea. 3 -20100 Milano - Tel 02/4049179 

Vendo tutto R miglior software per VIC 20. Moltissimi LM con e 
senza espansioni Giochi, utility, grafici, simulazione Scrivere o 
telefonare per ricevere il fornitissimo elenco gratuito F 4T 
Guerrieri Soft Bank - Via Ugo Foscolo. 14 -50124 Firenze • Tel 
055/7 00635 

Vendo cambio, acquisto programmi per Commodore 64 Invio 
gratis la Usta se mi inviate la vostra Massima serietà (annuncio 
sempre valido) Maurizio Calabrese - V»a De Amici». 37 • 65100 
Pescara - Tel 085/33523 

Vendo per il C64 magnifici giochi anc he a tre dimensioni a sole 
Lrt 15000 l'uno’ Posseggo anche 4 Turbo tape che supera il 
disco in velocità, a sole Lrt 30 000’ Telefonate dalle ore 19 alle 
ore 20 30. Francesco Tatuilo - Viale Orazio Fiacco. 12/D - 
70124 Bari • Tei 080/517109 

Vendo per Commodore 64 e Apple il programma originale 
personalizzato su disco con diete specifiche • varie patologie - 
cartella clinica pazienti Per informazioni telefonare o scrivere 
Massimo Sperandio - Via Nera. 7 06034 Foligno (PG) - Tel 
0742/54264 

Cambio, vendo 600 programmi su disco e nastro per Commo¬ 
dore 64. tutti i tipi di backup per disco - Turbo • Load disk - 
prezzi ottimi Ultime novità dall Amenca. Marco Sodano - Via 
Cavriglia . 10 00139 Roma - Tel 06/8126612 

Per Commodore 64 vendo su carlridge il famoso Turbolape e II 
Monitor (programma per una piu versatile compilazione di 
programmi m linguaggio macchina) Una cartuccia con il solo 
Turbotape Lif 60000. una cartuccia con Turbotape piu Monitor 
Lit 80000 Massima sicurezza Vincenzo Ciotti - Il Traversa 
Nicolardi. 32 - 80131 Napoli - Tel 081/7434424 

Vendo pacchetti di giochi per Commodore 64. Turbolape. Si¬ 
mon s BASIC. REL dimostrazioni Richiedere lista (su cassetta) 
Rispondo a tutti! Michele Giuliani - Via C Augusto. 11 • 71016 
San Severo (FG) - Tef 0882/72436 

Per VlC 20 vendo una cassetta C60 contenente splendidi video¬ 
giochi come Blitz. Raid on isram. ecc a soie LH 6000. da 
spedire mediante vaglia postale Massima serietà E un'occa¬ 
sione da non perdere Federico Formia - Strada S Vincenzo 
40/9 - 10131 Tonno - Tel 011/66503285 

Cambio due cartucce per VIC 20 (Jupiter lander - AtfM 
land) con il super expander Sono disposto a scambiare dei 
programmi Alessandro Marras - Via Vivaldi. 8 • 40050 Monte- 
veglio (BO) - Tel 051 /837448 

Compro qualsiasi gioco per VIC 20 m particolare Pacman. Tron 
e gl. utility di ogni genere Silvio Pedrocchi - Viale Aldo Moro - 
07020 Porlo Pozzo - Tel 0789/752042 

Cambio o vendo giochi per VlC 20 Sei giochi a Ut 1000 12 
giochi a Lit 15000 Scrivete vi manderò la mia lista Michele 
P apott. • Via del Cam po. 13 - 43100 Parma - Tel 0521/492135 

Offro 120 programmi ira < miglior, giochi ed Utilities per CBM 64 
m cambio di una stampante in buone condizioni Cambio md • 
tre programmi sempre per CBM 64 solo su disco Franco Piga - 
Via Belluno. 31 - 07026 Olbia (SS) - Te! 0789/22836 

Cambio, vendo programmi per Commodore 64. giochi e utiliy 
Inviate le vostre liste Massimo Leoncini • Casella Postalo. 85 - 
16035 Rapallo (GE) 

Cambio, vendo programmi per Commodore 64. sopratutto ge¬ 
stionali. eseguiti anche su commissione e personalizzati Scri¬ 
vere o telefonare al martedì mattina Francesco Venturelli - Via 
Repubblica. 193 - 41059 Zocca (MO) - Tel 059/987909 

Cerco programmi per C64di software, utility e giochi su cassai • 
la o disco non protetti Franco Basile - Via Machiavelli. 1 • 
74012 Cnspiano (TA) 


Vendo per il Commodore 64 piu di 1000 programmi comprese 
novità come Arabian night. Pittali a partire da Lil 4000 
Richiedere catalogo Lucio Rota - Via Levi 5 - 42100 Reggio 
Emilia 


Vendo programmi per CBM 64 Posseggo molti giochi e alcune 
utility tra cm Magic desk. Simons BASIC. Cale resull. Turbo 
tape Rispondo a tutti Telefonare dalle ore 14 alle ore 15 Ugo 
Boccard. - Piazza della Repubblica. 42 - 70059Tran. <BA) Tel 
0883/42590 

Per C64 cambio/vendo prezz. bassissimi molti programmi (Pel 
speed. Clone machine. Flight simulator II. ecc.) su disco/na¬ 
stro Chiedeie informazioni o inviate la vostra lista a Gianvilto 
no Palli - Via Neppiano. 11 - 27057 Varzi (PV) 

Per Commodore 64 cerco Magic Desk su cartuccia Offro m 
cambio Texas TI 58C con 25 programmi su ROM o corso 
BASIC Editoriale Jackson, 25 fascicoli edizione 84 Lit 75000 
Gualtieri Giorgio Via Bolzano, 29/A - 20127 Milano - Tel 
02/2842565 

Vendo, cambio programmi di gioco, simulazione e utility per 
CBM 64 su disco o cassetta Telefonatemi, ci metteremo sicu¬ 
ramente d'accordo Claudio Genova • Via S Ambrogio 9 - 
10139 Tonno Tel 011/711809 

Sono disposta a scambiare o a vendere programmi per CBM 
64 Inviare lista Adriana Pascale - Via L Da Vinci. 11 84018 
Scafati (SA) - Tel 081/8631809 

Regalo VlC 20 2 cartridge giochi. Scacchi a chi acquista in 
blocco VIC 1111. 16 Kbyte exp VIC 1211.3 Kbyte super exp 
VlC 1212. Programmer Aid. VIC 1020 cabmet exp , 6 slot Valore 
Lrt 700000. vendo a Lrt 400000 Dario Giambelli - Via De 
Cnstotoris 15 - 20124 Milano (MI) - Tel 02/6572867 

Vendo per CBM 64 programmi giochi e utility d« qualsiasi tipo a 
prezzi eccezionali Richiedere Usta a Lauro Michelotn • Via 
Boboii. la - 51017 Pescia <PT) - Tel 477727 

Compro, cambio, vendo per C64 programmi vari quali: Simon s 
BASIC - Koala - Turbo tape Dispongo inoltre di molti giochi 
anche in LM Cerco inoltre libri riguardanti il trattamento dei lite 
per C64 Paolo Caron -Via Bgo Padova 81 - 35013 Cittadella 
(PO) - Tel 049/591785 

Per Commodore 64 il CBM Club di Montevarchi cambia i 
seguenti programmi Space mvaders. Scramble. Calcio. Biorit¬ 
mi, Contabilita generale e tanti altri Scrivere o telefonare a 
Franco Milaneschi - ViaSoldam. 74 - 52025 Montevarchi (AR) 
Tel 055/984164 

Vendo trislot per VlC 20 a Ut 35000 e memoria da 8 Kb. 

70000 Roberto Carbonoli - Via Primaticcio.86- 20146 Milano 
Tel 02/4150401 

Vendo, cambio software per CBM 64 su nastro Inviare lista, 
scrivere oppure telefonare ore pasti. Alessandro Barducci - Via 
Saraceno 39 44100 Ferrara - Tel 0532/39150 

Vendo per CBM 64 Tombola inedita “parlante", dice i numeri. 

stampa numeri giganti e cartellone, ricco menù, numero prece • 
dente, numeri limasti. Contatto scritto o telefonico Giulio Fran- 
caviilese • ViaS Martino Moa. 28 - 65013 Città S Angelo <PE) - 
Tel 085/95535 

Vendo C64, registratore 2 mesi di vita, garanzia illimitata, pro¬ 
grammi di alto valore. 2 manuali d'uso. 1 manuale giochi, Il tutto 
a Lit 630000 trattabili Telefonare ore pasti Nello Labardi • Via 
Roma, 33 • 58019 Porto S Stefano (GR) - Tel 818835 

Cambio, vendo software di ogni tipo per CBM 64 Inviare lista 
Andrea Caprioli! - Via Lava. 3/a - 63035 Ottida (AP) 

Cambio, vendo programmi di ogni tipo per Commodore 64 a 
prezzi stracciati inviare e richiedere Usta al seguente indirizzo 
Roberto Franzoso Piazza Medaglie d'Oro. 6 - 14100 Asti 

Cambio, vendo programmi per Commodore sene 3000 4000 
Richiedere ampio elenco Si producono anche programmi su 
commissione. Scrivere o telefonare ore pasti Arofdo Bizzarri - 
Casella Postale 81 - 91100 Trapani (TP) - Tel 0923/20044 

Cerco possessori di CBM 64 per scambio idee e programmi 

Possiedo tutte te ultime novità. 200 e piu programmi tra utitty e 
videogame» quindi non rimane che scrivermi o telefonarmi 
Massima serietà Claudio Bosso • Via Danimarca. 4 (Marano) - 
80016 Napoli - Tel 081/7423570 

Vendo cassetta per CBM 64 contenente 20 giochi e utility dei 

tipo Soccer. Pii stop. Fori Apocalypse. Jump man, Qix e tanti 
attn programmi divertentissimi al prezzo di Ut 60000 Vendo 
anche singolarmente al prezzo di Ut 5000 cadauno Amadeo 
Cavallo • Via Botticelh. 11 - 81031 Aversa (CE) - Tel 
081/8908062 

Attenzione: si è costituito il “SoftVIC20“. creato per lo scambio 
di software Gli interessati agli scambi invuno le loro liste a 
Massimo Alberotanza - Via Tripoli. 12 - 70123 Bar. 

Cambio programmi originali inglesi ed americani per CBM 64 
La mia lista comprende oltre 1000 titoli, inviatemi la vostra 
Rispondo a tutti Giorgio Franchi - Corso O Sella, 89 - 10132 
Torino - Tel. 011/832875 

Vendesi per CBM 64 eccezionale cartridge "Jumpman Junior'* 
della Epyx al miglior offerente. Prezzo base Lit 50000 Pietro 
Sirena - Viale Risorgimento, 43 - 14053 Canelli (AT) - Tel 
0141/833228_ 
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Vendo per CBM 64 Simon's BASIC (completo di manuale) e 
Turbo tape II tutto a Ut 38000 L annuncio é sempre valido 
Scrivere o telefonare dalle ore 20 alle 21 Stefano Rier Viale 
Mozart 18/A 39042 Bressanone (BZ) Tei 0472/24239 

Vendo CBM 64 con registratore C2N per passaggio a SX-64 
Executive II tutto ha 2 mesi di vita, condizioni porfette Ut 
550000 Marco Calori • Via Veneziano. 10 • 20139 Milano • Tel 
02/5 31987 _ 

Compro cambio vendo programmi per Commodore 64. spe¬ 
cialmente videogiochi (ne posseggo circa 100) Si prega di 
inviare le liste complete per Commodonanr in possesso di 
pochi videogrochi e utility Milko Scaglia - Via Badia 74 • 25126 
Brescia 

Cerco potenti programmi di DataBase (e Word processing) per 

C64 a prezzi ragionevoli su qualunque tipo di supporlo Mauri¬ 
zio Verga - Via Matteotti 85 • 22072 Cermenate (CO) • Tel 
031/771600 

Vendo oltre 200 programmi per VIC 20 - CBM 64 - ZX Spectrum 
tra cut Turbo tape. Decathlon. Atic atac Gndrunner Pofeposi 
tion Richiedete le mie liste, le invierò gratuitamente Gianluca 
Cimino - Via Santo Spirito. 18 • 86170Isernia - Tei 0865/50393 
Vendo cassetta con 10 programmi per CBM 64 Pipeline - 
Hunch back - Pole posibon - Shamus - Frogger 3D • Jumpman 

- Dig dug • Pi! stop - Foresi - Pooyan per Ut 30000 Vendo 

Turbo tape Ut 15000 o cambio con altri programmi Mandare 
lista, annuncio sempre valido Pietro Giunto - Via D Amico. 5 - 
901 28 Palermo » Tel 232384 _ 

g Per CBM 64 vendo “Flight simulator 11“ con grafica 3D _ 
g Possibilità di usare aerei d'epoca Inoltre vendo Turbo g 
g disk, velocizza il floppy dimezzando il Load o Save E 

— Scrivere a Luca Grespan - Via B Marcello 20 - 31100 ! 

Treviso - Tel 0422/20668 ■ 

Possessore di CBM 64 cerca giochi adventures ecc. • pro¬ 
grammi utility Posseggo giochi bellissimi Hunck back. Dig 
dug. Falcon patrol. Apocalypse. Jumping Jack, ecc Inviato la 
lista, prometto risposta David Broggim - Via Monte Asolone. 7 - 
10141 Tonno Tel 011/338314 

Cerco disperatamente per CBM 64 simulatore di volo Buck 
Rogers della “Sega Electronics ' e gli '■Scacchi" Sono anche 
disposto a cambiarli con miei programmi (rispondo a tutti» 
Paolo Barbaro • Loc Diacciom. 31/10 - 57025 Piombino (LI)- 

565/40298 _ 

Vendo 60 ottimi programmi per VIC 20 su cassetta come Toto¬ 
calcio. Bioritmi Crazy kong. Life, a Lil 29000, oppure 100 
programmi m blocco Disponibilità anche per C64 Armando 
Mazza - Via Settembnni 96 - 70053 Canosa (BA) • Tel 
0 883/64050 _ 

Cerco pubblicazioni in italiano per C64 (ed istruzioni per soft¬ 
ware) Dispongo di: Guida di riferimento - Guida per floppy disk 

• ed altre pubblicazioni Inviatemi lo vostra lista invierò la mia 

Lucio Gaspanno - Via Ronchi. 39 - 20134 Milano • Tel 
02 /2151470 _ 

PtrC8M40 8092vendo package ingegneria Capurso MCS 

• Corel - Computo metrico ecc. contabilita, magazzino. Iatture 
paghe, compilatore DTL. manuale, chiave. Ut 150000 Eprom 
DOS. C3. Assembler. Comand 0. utility varie Paolo Stella • Via 
Moscardelli. 28 - 67100 L'Aquila - Tel 0862/23273 


Avete un CBM 64? Volete pilotare una realistica astronave 
attraverso la galassia? Allora chiedete informazioni su "Star 
Explorer" a Stefano Zattmi - Via Sforza • 47100 Fori» - Tel 
0543/26271 


Vendo software per disegnare con joystick per i possessori di 
C64 Funzioni uguali olia tavoletta Koala. Lrt 120000 trattabili 
Alessandro Cicchetti - Via Tot». 29 • 20052 Monza (MI) - Tel 
364702 

Cambio programmi (giochi - utility - grafico - gestionali - lin¬ 
guaggi - ecc ) per CBM 64 Massima serietà Massimiliano 
Turci - Via Serraglio 23 - 47023 Cesena (FO) 

Camb»o vendo giochi per CBM 64 su cassetta a Li! 5000 
Alcuni nomi Pole posdton Za non. Basket Turbo tape (per 
velocizzare il registratore) ed altri ancora Teiefonare ore pasti 
Dario Patti - Via XX Settembre. 3 - 18036 Sanremo (IM) • Tel 
0184/880603 _ 

Cambio giochi per C64 . programmi sono disponibili su cas¬ 
setta o d>sco(i programmi su cassetta sono registrati con Turbo 
tape) Gh mteresati scrivano a Picciotti Mano - Via Settembrini. 

52 • 84100 Satemo _ 

Vendo per Commodore 64 li programma della Roulotte su 
cassetta al prezzo eccezionale di Lit 5000 Michele Cassano • 
Via Massaia. 31 • 71013 S Giovanni Rotondo (FG) - Tel 
0882/ 856207 _ 

Per Commodore 64 cambio e/o vendo programmi di qualsiasi 
genere possibilmente su disco Ne possiedo oltre mille Gian¬ 
carlo Pagani - Via Girolamo Rossi. 60 - 48100 Ravenna - Tel 
0544/36708 


Vendo VIC 20 con pochi mesi di vita, piu di 40 programmi tra cui 
motti in LM (Gnd runner. Amok. Space mvaders. ecc ) il tutto a 
Lit 120000 Michele Spinelli - Via Mentana. 37 - 05100 Terni • 
Tel 0744/82348 

Dispongo di vasta gamma di programmi sprotetti per CBM 64 

su disco o cassetta Vendo • giochi a Lit. 5000. utility Lit 10000 
Telefonare ore pasti o scrivere Dispongo anche di Simon che 
vendo a Lit 20000 Carlo Zanella - Via L Da Vinci. 12 - 22074 

Lomazzo (CO) - Tel 02/9 6370318 _ 

Vendo cambio programmi per CBM 64 fra cui Pipilme, Pii stop. 
Hunch bach. Donkey kong. Simon's BASIC e molti gestionali 
come Easy script Fatturazione, magazzino, ecc Richiedete la 
lista Pietro Sirena - Viale Risorgimento. 43 - 14053 Candii (AT) 
- Tei/ 0141/833228 

Per CBM 64 possiedo moltissime ultime novità su disco ora 
anche in cassetta Aspetto le vostre telefonate o liste. Rispondo 
a lutti Desidero corrispondere con i simpaticissimi di Napoli 
Giuliano Pelegg* • Via Tormefli 10 - 00151 Roma - Tel 
06/5280434 __ 

Vendo Commodore 64 ; iMorf C2N StampandoMP8801 

drive 1541. Easy script. Simon BASIC. Assemblatore. 10 giochi, 
tutti » manuali, numerosi lloppy a Lit 1850000 Roberto Sahs - 
Via Forlanini. 45 • 20033 Desio (MI) • Itti. 0362/630384 
Cambio e vendo programmi su cassetta per Commodore 64 
Dispongo di oltre 200 Moti fra giochi, utility e gestionali Invio 
lista a chi rm invia la sua Annuncio sempre vahdo Roberto 
Cavatalo - Via Agnelli. 1 - 10070 Robassomero (TO) - Tel 

011/9235700 __ 

programmi su disco per CBM 64 Posseggo i favolosi 
Clone machine - Unguard - Locker - molte utility - programmi 
geskonali e numerosi games inviare liste o telefonare dalle 9 
alte 12 Tonino Crasto • Via Don Bosco. 9/e • 80141 Napoli - 
Tei 081/449915 

Occasione* Causa cambio computer, vendo 10 dischi per C64 
completamente registrati su entrambe le facciate con più di 130 
programmi di ottima qualità a Lit. 150000 Massimo Proia • Via 
Pubblico Passaggio 16 - 29100 Piacenza - Tel 0523/32417 


Vendo VIC 20 con registratore C2N piu espansione 8 Kbytepiu 
cartuccia "Mole Attack" piu cassetta War games" 8 Kbyte piu 
4 libri più 3 cassette a sole Lit 560000 trattabili Vendo 4 tutto m 
blocco oppure separatamente Telefonare ore serali Sergio 
Castellone - Via B Cairoti. 42 - 80141 Napoli - Tel 081 /229961 

Vendo programmi per CBM 64 registrali su cassetta Por infor¬ 
mazioni telefonare a Giulio Troccoll • Via Filiasi. 70/4 - 30174 
Mestre (VE) - Tel 041/5313 

Vendo in blocco 180 programmi per Commodore 64 tra cui 
Popeye. Zaxxon, Decathlon. Jungle hunt da Lit 300000 a Lit 
400000 Massimiliano Molino - Corso Salvemini. 53 - 10095 
Grugliasco (TO) • Tel 011/306186 


Cambio programmi per CBM 64 Ne possiedo ceca 400. Ira cui 
le ultime novità del Ces di Las Vegas tgor Vernerò - Via Torri- 
celli 48 - 10129 Tonno - Tet 011/59469 

Per Commodore 64 cambio software su cassetta o disco Uti¬ 
lity, gestionali, giochi. Inviate la lista dettagliata, avrete la mia 
Escluso acquisto o vendita, solo cambio: sono un appassiona¬ 
lo Silvano Funghi • Via Cola di Rienzo. 5 • 00047 Manno 
Laziale (RM) _ 

Per CBM 64 vendo Turbo tape su cassetta a Lil 10000 oppure 
scambio con vostro software (sopratutto utility) Cerco Guida 
di riferimento per il programmatore C64" Giovanni Addabbo 
Via Monte Vettore, 46 - 60131 Ancona 


Vendo VIC 20 n LH. 180000 trattabili Inoltre vendo registratore 
della Maxtron e cartucce con giochi "Demon attack" della 
Imagic e “Super alien" della Commodore Telefonatemi dalle 
20 aàe 21. Scambio inoltre programmi per CBM 64 Andrea 
Magg. - Via Filerete. 94 - 00176 Roma - Tel 06/274622 

Per Commodore 64 vendo vari di utilità e giochi a prezzi favore¬ 
voli Telefonare oro pasti o scrivere a Giuseppe Borracci - Via 
Mameli. 15 - 33100 Udine - Tel 0432/291665 

Vendo cartridge Radar ratrace por Commodore VIC 20 piu 15 
giochi a scelta (3-8-16 Kbyte) Tulto a Ut 45000 Ivan Porzio - 
Via M. Buonarroti 10 - 28068 Romentmo (NO) - Tel 
0321/60445 


Cerco possessori CBM64 per scambi di programmi Possiedo 
piu di 200 programmi di cui moltissimi sono novità in code 
machine 100% Inviatemi la vostra lista oppure telefonatemi per 
essere più veloci Caladio Bosso - Via Danimarca. 4 (Marano) • 
80016 Napoli - Tel 081/7423570 

Per Commodore 64 cambio o vendo a prezzi irrisori software 
su nastro Scrivere o inviare liste dettagliate a. Alberto Terra¬ 
gnoli • Via Carlo Alberto. 36/B - 37136 Verona - Tel 
045/504316 

Cambio, vendo programmi LM pei Commodore64 Rispondo.» 
tutti Scrivere a Osella Giancarlo - Via C Bossi. 22 - 10144 
Tonno - Tel 011/481853 


Vendesi software per VIC 20 e C6 ottimi prezzi e grande varietà 
Posseggo molli utility tra i quali duplicatore programmi protetti 
tra cassetta-dischi e cassetta-cassetta (per Commodore 64) 
Ciro Pagliara - Via Bernini. 1 • 80055 Portici (NA) - Tel 
081/7521969 

Vendo software di alto fivello per Commodore 64. sopratutto 
giochi (tutte le novità) Costo medio di un programma Ut 6000 
Per invio lista scrivi o telefona a Stefano Cannelli • Via Rivotor- 
to. 303 - 06080 Assisi (PG) - Tel 075/814112 

Vendo cambio programmi per Commodore 64 Giochi, utility 
ecc Prezzi convenienti Richiedere lista completa LucaAbba- 
telli - Via di Forte Bravetta 164 -00164 Roma Tel 06/532450 

Vendo per CBM 64 giochi su cassetta a partire da Lit 4000 
invio elenco completo a chiunque lo nehieda Dispongo del 
Turbo tape 1 Scrivetemi' Massimiliano Altobelli • Via Salaria. 
1387 -00138 Roma 

Acquisto programmi di ogni genere per Commodore 64 invia¬ 
re liste e prezzi con spiegazioni, non solo con titoli dei pro¬ 
grammi Giuseppe Borracci • Via Mameli 15 - 33100 Udine • 
Tel 0432/291665 

Vendo VIC 20 super espander, exp 16 Kbyte interfaccia regi • 
stratore. manuali "Impariamo a programmare con il VIC 20" e 
“Guida al personal VIC 20". manuale S E. tradotto, molti pro¬ 
grammi TuttoaLit 350000 Mano Fabiani - Via Cassini. 8/5 * 
16149 Genova - Te« 010/46415 


Sinclair 


Vendo software per Spectrum 16-48 Kbyte oltre 100 titoli di 
utility, grafica, giochi. In blocco Lit 50000 comprensive di cas¬ 
sette e spese d« spedizione contrassegno Chiedere lista a: 
Vincenzo Siviero - Casella Postale 2 - 81055 S Maria Capua 
Vetere (CE) 

Vendo floppy disk per Spectrum con interlaccin e sintetizzato¬ 
re vocale Scrivere o telefonare ore ufficio Carlo Celi - Via 
Giorgett. 25 - 32100 Belluno • Tel 0437/212204 

• Spocrrum vendo floppy disk 5“ da 400 Kbyte. doppia 
faccia originale Sandy con 5 dischi in omaggio e l'interfaccia 
per Lil 750000 Per informazioni rivolgersi a Luigi Tolomelli - 
Via Martini, 15 - 51016 Montecatini Terme (PT> - Tel 
0572/73175__ 

Per Spectrum 16 Kbyte cedo cassetta “New TotoSpectrum" 
per sviluppo colonnare e riduzione sistemi Totocalcio. Totip, 
ecc su 9 parametri con opzione di stampa su ZX Pnnter o 
6P100 a Lit 30000 Bruno Sforzmi - Via Giotto. 14 - 48015 
Cervia (RA)_ 

Eccezionale' Vendo originale gioco del poker per Spectrum 
ideato da me vistone 3D. grafica eccellente, si gioca contro il 
computer, a Lit 15000. Disponibili a Lit 8000 cadauno Mega- 
pede. Snake invaders. Draw & pamL ecc Nicolo Occhipinti - 
Via Istria 10 • 93100 Caltamssetta Tei 0934/33366 
Cambio, vendo programmi per Spectrum 48 Kbyte (ne ho circa 
160) Per Spectrum 16 Kbyte vendo fantastica cassetta con 33 
programmi n Lit 6000 Giancarlo Orrù - Via Capuana. 135 - 
00137 Roma - Tel 06/824160 

Cambio o vendo programmi per ZX Spectium 16/48 Kbyte 
RAM Scrivetemi o telefonatemi ore serali Garantisco risposta 
a tutti. Marco Pofetto - Via Fanes. 3 - 39100 Borano • 
0471/971887 

Vendo ZX Printer quasi nuova, corredata di programnli 
rotoli di carta II tutto a Lit. 130000 trattabili Tratto solo con la 
zona di Firenze Telefonare ore serali Riccardo Nicoletti - Via 
Delia Cornata. 3 - 50129 Firenze - Tel 055/483257 

V* hi programmi per ZX Spectrum a Lit 4000 l'uno, incluse le 
ih -/«.» inglesi Emanuele Castagno - Via G Bome - 16134 
Genova - Tei 010/215718 _ 

Scambio o vendo software di alta qualità per ZX Spectrum a Lit 
25000. incluse tutte le ultime novità dall'Inghilterra, con istru¬ 
zioni Inviare o chiedere elenco con 750 programmi a Bruno 
Mautone • Via Trentino. 74 - 80145 Napoli • Tel 081/7540707 

Posseggo più di 800 programmi per lo ZX Spectrum Se hai 
dette novità (o piu di 400 programmi), scrivimi ed avrai la rispo¬ 
sta assicurata Effettuo solo cambi Richiesta massima serietà 
Luigi Ballostm-Via Martiri della Libertà. 367/11 - 18038 Sanre- 
mo(IM) - Tel 0184/884177 _ 

Causa passaggio ad altro sistema vendo Spectrum 48 Kbyte in 
ottime condizioni, senza alcun difetto, completo di oltre 100 fra 
programmi, utilità, videogiochi fra i quali Scacchi. Atte Atac. 
Simulatore di volo. Ant city e programmi per magazzini e denti 
sii, il tutto a Lit 450000 Massimo Amato - Via Giovanni XXIII - 
81059 Va.rano Scalo (CE) - Tel 0823/988182 
Vendo Spectrum 16 Kbyte completo, appena usato, con ottimi 
programmi di vano genere (gestionali - tecnico scientifici - 
utilità - giochi) a Lit 300000 Telefonare tra le 20 e le 21 Arturo 
Magno • Via A Diaz. 6 • 39100 Bolzano • Tel 0471/36075 
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Urgente* Compro a Ut 50000 massimo Sinclair ZX 80 nuova 
ROM senza accessori ne alimentatore purché funzionante e in 
buono stato Vendo m blocco nviste d. elettronica e informatica 
Giuseppe Cardella - Via Martogna, 46 - 91100 Trapani - Tel 
0923/48454 

Vendo listati di 60 programmi pff i 2K Spedami l Li» 

25000 in contrassegno comprese istruzioni in illiano Dispongo 
di molti programmi per Casio PB100 Alfonso Caschili - Via 
Italia. 188 - 09010 S Anna Arresi • Tel 0966025 

Vendo e cambio programmi per Sinclair QL Cerco inoltre 
possessori di questo computer per scambio informazioni Per 
informazioni rivolgersi a Damele Vergan • Via Segantini 38 - 
38068 Rovereto (TN) 

Vendo, cambio software per ZX Spoctrum • Commodore 64 
Dispongo di vastissimo catalogo Ultime novità inglesi Mugsy • 
Tennis • The hulk Scrivete per ricevere la lista e le modalità di 
scambio Pier Luigi Galliano - c/o Banca Popolare di Novara • 
18013 Diano Manna (IM) - Tel 0183/496849 
Per ZX Spectrum cambio e vendo olire 800 programmi di ogni 
genere programmi di utilta. programmi didattichi copiatori 
sinteti 2 zafori vocali, giochi vari e ultime novità Enzo Prochtlo • 
Via Castel Colonna. 2 • 00179 Roma Tel 06/7851113 

Vendo, cambio software per ZX Spectrum Dispongo di circa 
600 titoli con tulle le ultimissime novità inglesi Offerte vantag¬ 
giosissime per quantitativi Eraldo Taioli Via F. Braganti 8 
47100 Forlì • Tel 0543/65633 

Vendo giochi per Spectrum 16/48 Kbyte a prezzi favolosi con 
grandi offerte speciali Scrivere a Lorenzo Bernardini - Via 
Costa dei Frati. 6 • 63017 Porlo San Giorgio (AP) - Tel 
0734/378516 

Disponiamo di più di 400 programmi video • arcade - adventu- 
res - games e Utilities con ultime novità inglesi a Ut. 2000-3000. 
16-48 Kbyte Attenzione 20 programmi a scelta in una sola 
cassetta Li! 25000 Stefano Corsi • Via Palone. 6 - 65100 
Pescara Tel 085/4151432 

Scambio o vendo software per ZX Spectum Dispongo di 150 
titoli tutti provenienti da case di software (originali) Cerco inol¬ 
tre possessori detl'interfaccia joystick programmabile di Elet¬ 
tronica 2000 Riccardo Muha - Via Cavallermaggiore. 19 - 
10139 Tonno Tel 011/446082 

ZX Spectrum 48 Kbyte completo di cavi, alimentatore, registra¬ 
tore. manuali, varie riviste e numerosi programmi (Pascal. 
FORTH. PBASIC) e giochi a Lit. 500000 Qualsiasi prova Marco 
Busa Via Isole Salomone. 6 -00121 Ostia Lido (RM) Tel 
5611496 _ 

Vendo, compro cambre programmi per ZX Spectrum originali 
inglesi a meno di Lit. 3000 cerco inoltre possessori di Spectrum 
in zona Versilia per scambio di idee e software Paolo Della 
Capanna - Via Fratti • 55049 Viareggio (LU) - Tel 0584/50390 

Cambio, vendo programmi per ZX Spoctrum Richiedere elen¬ 
co aggiornato telefonare ore pasti Alessandro Romboli - Via 
Cefaloma. 43 • 20097 S Donato MHanese(MI) - Tei 5270264 

Vendo computer ZX81. alimentatore, cavetti manuale inglese, 
espansione 16 Kbyte libro "Guida al Smelai»", programmi U 
tutto in ottime condizioni e in imballi originali a metà prezzo, a 
} soie Lit 121000 trattabili Maurizio Delia Sala - Via Marconi. 6 - 
| 84016 Pagani (SA) • Tel 081 /916306 
Vendo ZX81. alimontatore. cavetti col. manuale inglesee italia¬ 
no. libro "66 programmi" Regalo inoltre molli programmi Prez¬ 
zo ottimo* Giovanni D’Elia - Via Trentino. 84 - 74100 Taranto • 
Tel 099/337122 _ 

Cambio programmi per ZX Spectrum 16/48 Kbyte Cerco inol¬ 
tre possibilità cambio software Spectrum con Commodore 64 
Dispongo d» interfacce Kempston a basso prezzo Liviano Vitali 
- Via Firenze. 29/3 - 41035 Massa Finalese (MO) - Tel 
05 35/99 700 

Vendo software Spectrum 800 titoli Richiudete la lista o cita 
logo descrittivo I migliori prezzi e le migliori garanzie di assi¬ 
stenza e competenza Luigi Roberto Callegan - Via Alcide De 
Gaspen. 47 • 21040 Sumirago (VA) - Tel 0331/909183 

Cambio software per ZX Spectrum 16 Kbyte Inviatemi il vostro 
elenco di programmi da scambiare, vi invierò tl m»o Cerco 
inoltre espansione 48 Kbyte e stampante ZX Printer a prezzo 
ragionevole F rane esco Pugliese - Via Magazzini General). 11 • 
26100 Cremona - Tel 0372/38542 

Vendo programmi per Spectrum. tutte le novità (Hurg. 

■ Sabre wulf. calcio. Olimpiadi, Manie mine» 2. ecc) m 400 " 

■ titoli disponibili tra giochi e utilità Vendo a Lit ® 

■ 500/1000/2000 cadauno Lista gratuita Massimiliano 8 
Carosi • Via D Forte Tiburtmo. 98 • 00159 Roma 


Vendo programmi per ZX Spectrum Moltissimi giochi e nume¬ 
rose utility cassetta per 16 Kbyte Lit 3000 per 48 Kbyte Ut 
4000. cassetta 5 programmi Ut 15000 Telefonare per informa¬ 
zioni. tratto solo zona Napoli Lorenzo Monaco - Via Michele 
Guadagno 10 - 80137 Napoli - Tel 081/444306 

Compro, cambio, vendo software di ogni Upo originale a Lit 
1000 per 16 Kbyte, a Lil 1250 per 48 Kbyte Un programma in 
regalo a chi ne acquista 3 Per informazioni scrivere (inviando 
listai, rispondo a tutti e invio gratis il mio catalogo Maurizio 
Brugioto - Via Pio V». 138 - 10127 Tonno • Tet 011/615827 

Cerco stampante per Spectrum - 3 chiavi per duplicare prò 
grammi Lit 10000 • programmi a Lit 2400 cadauno Marco 
Sivori - Via Barchetta. 18/9 - 16162 Boizaneto (GÈ) • TEI 
010/403118 

Scambio o vendo software per ZX Spectrum Cambierei inoltro i 
miei 350 programmi con stampante Possibile acquisto in bloc¬ 
co con sconti da capogiro Prezzi Lit 1000 - 4000 Massima 
serietà Roberto Pierozzi - Via Togliatti. 2 - 58022 Follonica 
(GR) - Tel 0566/44760 

Vendo programmi tu cassetta per ZX Spectrum e listati per 
ZX81 - VfC 20 • C64 E‘ un vero affare Se volete saper ne di p«u 
telefonate o scrivete a Gianluca Tapparmi - Via del cittadino 
12 - 50047 Prato (FI) • Tel 0574/591970 

Per ZX Spectrum vendo interfaccia programmabile per joy¬ 
stick adatta a qunlunquegioco in L M o BASIC con replica del 
connettore sul retro e completa di istruzioni a Lit 80000 Carlo 
Ghelfi - Via San Bassiano. 12 - 20075 Lodi (MI) - Tel 
0361/51892 

Cambio/vendo pe» Spectrum 16/48 Kbyte giochi ed utility 
molto interessanti Eseguo programmi di giochi ed utility su 
richiesta Inviare catalogo Cambio tutti i miei programmi con 
un joystick o stampante Pietro Carderia • Vico Rosmini 3 - 
74017 Mottola (TA) 

Vendo ZX Spectrum 48 Kbyte con 130 programmi in linguaggio 
macchina e 2 libri (il manuale e programmazione in LM ) a Ut 
550000 trattabili Vendo Intellevision piu 4 cartucce a Ut 
250000 trattabili Vendo Videopac G7000 piu 2 giochi a Ut 
90000 Alberto Gerardi - Via Casati. 7 • 20013 Magenta (Mf) • 
Tel 02/9797493 

Programmi per ZX Spectrum I prezzi sono stracciatissimi 
Oltre 120 programmi tra cui tutta la serie VU Cerco ZX Printer a 
basso costo Scrivere a: Sergio Remondmo • Via De Gaspen, 3 
10015 Ivrea (TO) 

Vendo Sinclair Spectrum 16 Kbyte completo di cavi e alimenta¬ 
tore. manuale inglese e italiano, con garanzia non ancora com - 
P'iata il tutto con 3 casette e listato di Simutavolo a Lit 350000 
Giuseppe Rivetta • Via Morandi. 26 - San Donato Milanese (MI) 

- Tel 02/5230 637 

Cerco possessori ZX Spectrum 16 o 48 Kbyte per scambio 
software Dispongo di circa 100 programmi Ira giochi e utility 
Scrivetemi o telefonatemi ore pasti Garantisco massima serte 
là Maurizio Di Russo • Via San Tommaso. 8 - 55049 Viareggio 
(LU) - Tel 0584/47088 

Hai uno Spectrum 0 Iscrivili al "Gruppo utilizzatori computer 
Sinclair Napoli" Avrai accesso a numerosi vantaggi e farai 
parte di un supergruop Scrivi* Roberto Chimenti - Via Luigi 
Rizzo. 18 • 80124 Napoli • Tel 081/617368 

Causa doppio regalo vendo Spectrum 48 Kbyte. 90 programmi 
originali, un libro sul linguaggio macchina a Lit. 450000 trattabi • 
li Stefano Bellisai • ViaPozzuolodel Friuli.6/6 - l6l45Genova 

- Tel 010/308254 


Vendo olire 100 programmi per ZX Spectrum 16-48 Kbyte 
Prezzi modici Daniele Corsi Via Giacosa. 16 - 58100 Grosseto 1 

- Tei. 0564/491207 _ 

Eccezionale vendo mollissimi meravigliosi programmi (Atic 
atac. Manie mine». Alchemist. ecc) per ZX Spectrum 16-48 
Kbyte Prezzi a partire da Lit 3000 Per ricevere gratis l'elenco 
scrivere o telefonare ore pasti Domenico Cropanzano - Viale 
Regian Giovanna. 59 - 98100 Messina - Tel 090/56884 

Vendo programmi per ZX Spectrum 16-48 Kbyte. Dispongo di 
110 giochi. 32 a Lit 3000 l'uno 78 a Ut 4000 l'uno 27 utilitari a 
Lit 2500 l'uno Scrivetemi e vi spedirò la lista totale dei pro¬ 
grammi Franco Tortoli - Via delle Romite. 8 - 50124 Galluzzo 
(FI) - Tei 055/ 2048905 

Cambio vendo 400 programmi per Spectrum Prezzi irrisori 
Risposta garantita, massima serietà Rosario Di Modica - Via 
Castelfidardo. 37 - 97019 Vittoria (RG) • Tel 0932/983512 

Vendo ZX microdrive con Interface 1 nuovissimi a sole Ut 
300000 Vendo inoltre 4 cartndge a sole Lif 10000 cadauna 
Regalo all'acquirente numerosi giochi e utilità Tratto solo con 
Milano Gianm Anofi • Via Massarenti. 22 • 20142 Milano (MI) 

Tel 02/4076556 _ 

Vendo programmi perZX Spectrum (16-48 Kbyte) su cassetta • 
partire da Lit 1500 sino a Ut. 4000 Per richiedere informazioni 
scrivere o telefonare a Luca Duradoni - Via T Buzzi, 36 • 50047 
Prato (FI) - Tel 34939 

Scambio programmi per ZX Spectrum Inviare la propria lista o 
telefonare ore pasti Stefano Orlando • Via Petrarca. 153 - 
20099 Sesto S G (MI) • Tei 02/2405323 


Vendo ZX Printer. 5 rotoli di carta, alimentatore manuale a Ut 
120000 Disposto a qualunque prova Paolo Bailoco • Via S 
Gottardo - 20052 Mo nza - Tel 0 39/367709 

Vendo per ZX Spectrum ZX Interface T wo oppure cambio con 
interfaccia parlante Curreh Damele Turchi - via Solferino 4 
53036 Poggibonsi (Si) - Tel 0577/934250 

Vendo cassetta C60 con più di 20 programmi Spectrum 48 
Kbyte provati uno per uno. a Lit 30000 compresa la cassetta 
Garantisco serietà e qualità* Davide • Via Alberimi. 9 • 20154 
Milano 

Dispongo d* software ZX81 (16 Kbyte) grafica, matematica, 
ingegneria civile, meccanica e navale, analisi operativa e ge 
stione dati, scientifici, giochi vari Richiedere elenco gratuito a 
Vincenzo Manno - Piazza Volontari Giuliani. 8 - 34126 Trieste 

"Sir Olive Club" scambia Idee e software per Spectrum e OL 
anche futuri possessori QL per primo contatto Risposta rapida 
e sicura Roberto Ghezzi - Via Volontari del Sangue 202 
20099 Sesto San Giovanni (MI) 

Vendo super programma Totocalcio <n LM per elaborazione 
sistem- integrali con vari condizionamenti Senza limite di co¬ 
lonne con ZX Spoctrum Gian Batista Gilberti Via B Pascal. 23 
- 25050 Passirano (BS) 

Vendo ZX Spectrum 48 Kbyte Issue 2 perfettamente funzio¬ 
nante a Ut 360000 In omaggio circa 200 programmi Massima 
serietà Dario Durante • Via Meucci. 22 • 64022 Giuhanova (TE) 


Texas 


Cerco per Tl 99/4A il modulo SSS extended BASIC ad un 
prezzo trattabile intorno alle Lit 120000 Telefonare dalle 13 
alle 17 chiedendo di Giuseppe oppure scrivere. Giuseppe Ma 
riam - Via 29 da denominare. 1 - 67039 Sulmona (AQ) - Tel 
0864/52067 

Cerco modulo SSS extended BASIC con manuale pe» Tl 
99/4A Telefonare ore 17-19 giorni feriali Pier Enrico Ghideàa 
- Via Tonso. 66 15100 Alessandria - Tel 013/41725 

Vendo Tl 99/4A piu cavo registratori. SSS Tomb city, extended 
BASIC, manuali in italiano e inglese piu software. Tutto in 
garanzia a Ut 500000 trattabili. Tl 5511 Lit 60000 Carlo Pescio - 
Via Fontanassa. 22/2 - 17100 Savona - Tel 016/803813 

Per Tl 99/4A vendo cassetta contenente 2 giochi in Tl BASIC 
(Labirinto 3D. Paratrooper) a Ut 5000 Telefonare a: Marco 
Scopeiiiti Via Dei Mille. 28 - 20098 S Giuliano (MI) - Tel 
Q2/98404S2 _ 

Acquisto modulo SSS Tl extended BASIC per Tl 99/4A Texas 
Giuseppe Bedin - Via Donizetti. 21 • 35100 Padova 

Per Tl 99/4A cambio moduli Parsec. Tl Invaders. Blasto. cas¬ 
setta Mistery fun house (o cassetta Market simulation) contro 
modulo mmimemory piu cassetta Assembler Telefonare ore 
19-22 Fatuo Castoldi Via Galilei. 9 20052 Monza (MI) - Tel 
039 /835620 _ 

Compro a qualsiasi offerta modulo exlended BASIC 
99/4A purché perfettamente funzionante Marco Mtcai - Via 
Molino Di Pescarola. 26 - 40131 Bologna Tet 051 /351151 

Cerco disperatamente per computer Texas Tl 99/4A modulo 
SSS Tl extended BASIC Vendo cassetta con programmi a Lit 
30000. Natalino Guiso • Villa Teca 11/6 16039 Sestn Levante 
( GE) - Tel 4 4071 _____ 

Vendo Tl 99/4A (8 mesi di vita) causa passaggio a 

■ sistema superiore, completo di alimentatore, modulato- B 

■ re. joystick, manuale libro 'Imparare ri BASIC con tl Tl B 

■ 99 4A e 40 programmi vari su nastro a Lit 250000 B 

■ Telefonate* Roberto Deandrea - Via Villino Le Rondini, ■ 

■ 14 - 15027 Castagnone di Pontestura (AL) - Tel ■ 

0142/66570 _ 

Vendo software per Tl 99/4A anche in extended Inoltre a chi mi 
manda Lit 50000 spedirò un nastro con 30 programmi per Tl 99. 
tra i quali molli mediti eal fcmrtedella memoria Barca Giuseppe 
V.a Tre Re. 29 20047 Brugheno (MI) - Tei 039/879211 

Vendo Tl 99/4A fcxte ndftd BASIC RflQUigglo 1 ORTM su cas 
sella, expansion box RS232. 32 Kbyte, stampante Epson, 6 
giochi, manuali, riviste a Lit 500000 (vendo anche separata - 
mente) Andrea Barbieri • Via Livorno. 12/A • 35100 Padova - 
Tel 049/658995 

Vendo programmi per Tl 99/4A sia su cassetta che su listato 
Prezzo specole per l'acquisto in blocco dei programmi su 
nastro Telefonare ore pasti serali Scrivere a AngeleUi Ales 
sandro - Via Del Pesco. 17 - 56030 Montecalvok (PI) Tel 
0587/748350 

Vendo 2 joystick originali Texas Tl 99 nuovi con imballaggio 
originale ed anche istruzioni per il loro uso Telefonare ore 
pasti e chiedere di Alessandro. Alessandro Angelelli - Via Del 
Pesco. i ntecalvol. (Pii 48350 

Vendo l'introvabile Extended BASIC < i . -0000 trattabili 
inoltre regalo Tl 99/4A e numerosi programmi in extended 
Paolo Aicardi - Via Acerbi. 6- 16l48Genova • Tel 010/391760 
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Cerco modulo TI extended BASIC per TI 99/4A aprezzo modi¬ 
co. Luca Valentmi * Via Capocaccia. 15 - 18013 Diano Manna 
(IM) • Tel. 25756 _ 

Cerco disperatamente il modulo SSS TI extended BASIC con 
manuale. Giancarlo Fontanive - Via Lungo Lago Polli. 13 • 
22050 Colico (CO) Tel 0341/940650 
Vendo TI 99/4A con extended BASIC. 2 moduli SSS. Sintetiz¬ 
zatore vocale. 2 ]oystics. cavo per registratori. 60 programmi su 
cassetta e corsi vari con manuali a Lit. 550000 Telefonare ore 
19-21 Alessandro Lucia - Via Carso. 20 - 22032 Albese con 
Cassa no (CO) - Tel. 031 /420245 _ 

Vendo TI 99/4A. cavo TV. cavo registratore, joystick. 9 Ira I 
migliori moduli Solid State Software, 20 fra i migliori programmi 
in cassetta, manuali di tutto Usato pochissimo, vendo percam- 
bio sistema a Lit 1000000 Roberto Sorci - Via Dante. 83 - 
60044 Fabriano - Tel 0732/261084 

Attenzione eccezionale' Cambio drive Schugart 8 pollici con 
TI 99/4A Tutti gli interessati scrivano o telefonino. Si astenga¬ 
no coloro che pretendono denaro Carlo Alberto Bertocchi - 
Via N. Sauro - 20090 Cesano Boscone (MI) - Tel 02/4585420 

Cerco per Texas Tl 99/4A extended BASIC Accet» i: 
offerte varie per Texas solo se unite ad extended Preferibil¬ 
mente province di Vercelli - Novara e zone limitrofe Telefonare 
ore pasti Walter Scandaluzzi - Via Case Nuove. 26 * 13052 
Gagliamco (VC) - Tel. 015/541152 

Cambio programmi di ogni genere per Texas Tl 99/4A sia in 
BASIC che in extended BASIC Andrea Barbi - Via Circondarla 
Sud. 17 - 41013 Castelfranco Emilia 

Vendo, cambio programmi di matematica e scientifici per Tl 
99/4A in cassetta. Dispongo anche di ottimi giochi (alcuni 
originali U S.A ) Prezzi ed elenco a richiesta Saverio Brogna - 
Via Mesina - 88010 Piscopio - Tel. 0963/266144 

Compro per Tl 99/4A modulo SSS extended BASIC Analizzo 
inoltre proposte per gli altri componenti e periferiche Scrivere 
indicando indirizzo e recapito telefonico Giacomo Mazzone - 
Via Manm, 44 - 70037 Rivo di Puglia (BA) 

Cambio per Tl 99. per mancanza di interfaccia, modulo di 
espansione 32 Kbyte con mimespansione da infilare diretta¬ 
mente nella consolle. Rocco Lucatorto - Via Liside. 12 - 74100 
Taranto 

Compero programmi giochi per Tl 99/4A registrati su cassetta 
e Tl extended BASIC nuovo o usato purché perfettamente 
funzionante e con manuale. Marco Sandei - Via Pralesi, 7/1 - 
37010 Cisano di Bardolino (VR) - Tel. 7210298 

Vendo dispensa 200 pagine su Tl 99/4A a Lit. 25000: schemi 
elettrici, utility. P Assembler, consigli Tutti • programmi della 
rivista Tl 99 Magazmer Americana in due volumi ciascuno Lit 
20000. Libro didattico con 50 programmi francese su Tl 99/4A 
Ltt 20000 Filippo Mangone - Via L Da Vinci - 80100 Napoli- 
Villariccia - Tel. 081/8943895 

Vendo home computer Tl 99/4A registratore Hmno Hit TR- 
724. 70 programmi su cassetta (giochi, calcolo, gestione indi¬ 
rizzi. grafici, ecc). cassette software di giochi, cassetta con 8 
lezioni di BASIC a Lit. 380000. Andrea Merlone - Corso Novara. 
79 - 10154 Torino - Tel. 011 /235021 

Vendo, scambio fantastici programmi per Tl 99/4A a Lit. 4000 
l'uno oppure 10 programmi a scelta a Lit 30000. musicassetta 
compresa Richiedere catalogo illustrato ed istruzioni pro¬ 
grammi. R. Antonio Spezia - Via Toniolo. 13 - 15057 Tortona 
(AL) - Tel. 862269 

Vendo Texas Tl 99/4A. extended BASIC, Parsec. Music maker. 
Tombstone city. Wumpus. oltre 100 giochi su cassetta il tutto a 
Lit 500000 Alessio Vecchio - Via Alabastro. 47 - 58100 Gros¬ 
seto - Tel. 0564/491270 

Vendo Tl 99/4A extended BASIC, 4 moduli SSS. registratore e 
cavetto, oltre 50 programmi su cassetta Lit 350000 trattabili 
Telefonare o scrivere a: Paolo Bardone - Via Luparia. 6/c - 
15033 Casale Monferrato (AL) - Tel 0142/71133 

Compro per Tl 99/4A modulo Tl Extended BASIC Claudio 
Violino - Vicolo Castelli Fiorenza. 10 - 20017 Rho (MI) - Tel. 
9302927 _ 

Vendo Tl 99/4A. modulatore, alimentatore, cavetto. 8 lezioni di 
BASIC su cassetta, 2 libri ”35 programmi in TIBASIC" e "Impa¬ 
riamo il BASIC Tl 99", 1 cassetta con Poker. Pac man. ecc. A Lit. 
450000. Roberto Mauro - Viale Dei Salesiani. 4 - 00175 Roma - 
Tel 06/7480414 

Vendo programmi di giochi, matematiche, utility per il Tl 99/4A 
Disponibili listati per VIC 20. C64. Sinclair. Apple. Prezzi molto 
accessibili Andrea Riberti - Via S ta Brasile. 1 -14 se. B - 16162 
Genova-Bolzaneto - Tel 010/405122 


Vendo per Tl 99 programmi su cassetta 5 giochi Lit 10000. 
oppure 5 programmi di utilità: matematica, fisica, altro a Lit. 
10000. Ordinando la cassetta voluta non inviare denaro Ro¬ 
berto Drusolini - Via S Anna. 1 /A - 34074 Monfalcone (GO) - 
Tel 0481/42318 _ 

Vendo per Tl 99/4A stupendi programmi in Tl BASIC e in Tl 
extended BASIC, prezzo Lit 5000 cadauno a chi ne acquista 
parecchi insieme verranno effettuati prezzi favolosi. Luca Ca- 
razza - Via Lodi. 2 - 10152 Torino - Tel 011/237041 
Compro programmi per il Tl 99/4A Cerco inoltre gioco Calcio 
a Lit. 20000 e joystick a Lit 25000 Enrico Castagnetti - Piazza 
Municipio. 4 - 13060 Valdengo (VC) 

Vendo software di ogni tipo per Tl 99/4A gestionale, didattico e 
videogames Cedo modulo SSS "Tl irivaders" a Lit 35000 
Richiedere la lista dei programmi Massimo Zancanaro - Via 
Manzoni. 20 - 37138 Verona -Tel 575641 
Vendo software per Tl 99/4A a partire da Lit. 5000 Dispongo di 
alcuni giochi famosi come: Kong - Puc man - 3D Tic tac toe 
della Texas - Torri di Hanoi e altri ancora Richiedete la lista. 
Fabio Torti • Via L Da Vinci. 7 - 15057 Tortona (AL) - Tel. 
0131/86674 

Tl 99. vendo programma Tl BASIC per calcolo effemeri di 

impostata data e pianeta Tl 99 da risultati numerici e proietta la 
mappa celeste interessata con il pianeta lampeggiante Cas¬ 
setta piu documentazione Lit 20000. listato piu documentazio¬ 
ne Lit 15000 Scrivere o telefonare per contattazioni (dopo le 
20.30) a Claudio Balcon - Via Agordo. 434 - 32100 Belluno - 

Tel 0 437/212123 _ _ 

Cerco per Tl 99/4A extended BASIC se possibile con manuale 
Massimo Gardumi - Via Bersaglio. 12 - 38068 Rovereto (TN) - 
Tel 0464/35520 

Grande svendita di listatil Massi. Romano e Roberto vi offrono 
la possibilità di acquistare una sene di listati a basso costo per 
Tl 99/4A e CBM 64 Per informazioni scrivere a Massimiliano 
Andreoletti - Via Briolmi. 11 - 24025 Cazzamga (BG) - Tel 
712821 _ _ 

TI99/4A svendo, in zona, con accessori per funzionamento piu 
joystick più cavetto registratore piu extended BASIC piu sinte¬ 
tizzatore vocale piu 7 videogames piu 35 giochi su cassetta 
registratore più manuale e libro a Lit 480000 Materiali anche 
separatamente Dmo Tortoreila - Via S. Francesco di Assisi. 
10/A - 25100 Brescia - Tel 030/43705 

Vendo Texas Tl 99/4A nuovocon garanzia piu cavetti registra¬ 
tore più programmi dimostrativi (bioritmi. Othello)inTI-BASlCa 
Lit 250000 Scrivere o telefonare ore pasti Maurizio Valerio - 
Via Carducci - 36067 Termmedi Cassola (VI) - Tel 0424/30308 

Cerco modulo SSS extended BASIC per Tl 99/4A e software in 
Tl BASIC e di ogni tipo Federico De Caroli - Via Friuli. 3-41012 
Carpi (MO) - Tel 0591/695361 ___ 

Vendo Texas TI99/4A piu registratore piu cavetto piu gioco 
Tombstone city più libro BASIC più 3 giochi educativi, tutto a Lit 
250000 Telefonare dopo le ore 19 Maurizio Bianchi ■ 20123 
Milano - Tel 02/2155251 

Vendo Texas Tl 99/4A piu modulo SSS extended BASIC piu 
Speech Synthetiser più programmi gestioni fatture (inedito) e 
tanti giochi americani a sole Lit 550000 poco trattabili Tratto 
solo zona Napoli e dintorni Michele Arienzo • Via Golia. 5 - 
80144 Napoli - Tel 081/7541176 _ 

Vendo per Tl 99/4A cassetta giochi 60 minuti con più di 25 
programmi a Lit 65000 tra cui 3D Tic tac toe. Catacombe ed 
altri m vendita anche sfusi. Per richiesta e informazioni scrivere 
a Valentino Ricci - Via Mameli. 38/3 - 65100 Pescara 

Vendo acquisto programmi Texas Tl 99/4A anche in extended 
L'elenco sarà inviato gratuitamente a coloro che ne faranno 
richiesta Michele Mastrangelo - Via Panama. 34 - 86039 Ter- 
moli (CB) 

Vendo Texas Instruments Tl 99/4A più alimentatore più colle¬ 
gamento TV più cavo interfaccia registratore più manuale d'u¬ 
so m italiano più in regalo fotocopie di software Tulto nuovo in 
pacco originale dal 6 Aprile 84 Maurizio Bua - Via Marcello 
Capra. 57 - 94014 Nicosia (Enna) - Tel 0935/48179 _ 

Vendo Tl 99/4A completo di joystick, cavetto per registratore, 
cassetta Tl extended BASIC e manuali (tutto originale Texas ed 
ancora in garanzia): Lit 300000 Francesco Acri - Via S Cristo- 
foro. 51/D - 80055 Portici (NA) - Tel 272100 
Per Tl 99/4A vendo corso completo di BASIC In 18 lezioni aLit 
50000 Possibilmente zona Roma Vendo inoltre vari program¬ 
mi di giochi a sole Lit 2000 a gioco Alessandro Fiorelli - Piazza 
dei Giureconsulti - 00167 Roma - Tel. 06/6217477 

TI99/4A! Cambio o vendo oltre 150 programmi In TI-BASIC in 
alta risoluzione grafica e sonora Scrivere o telefonare preferi¬ 
bilmente dopo le ore 20. solo zona Roma Corrado Conforti - 
Via Dell e Nereidi, 52 - 00121 Ostia Lido (Roma) - Tel 5691224 

Cerco per TI99/4A modulo SSS extended BASIC piu program¬ 
mi vari Pietro Garitta Via F.sco Speciale. 13 - 90129 Palermo - 
Tel 091/481031 ________ 

Cerco cavo di registrazione per computer TI99/4A della Texas 
Instruments Paolo Capodivacca - Via Pasubio 9 - 20025 Le- 
gnano (MI) - Tel 0331/542946 


Compro SSS o cassetta del gioco Soccer (Calcio) per TI99/4A 
Gradito anche l'elenco di altri giochi o altri programmi Enrico 
Castagnetti - Piazza Municipio. 4 • 13060 Valdengo (VC) 

Svendo TI99/4A, 3 mesi di vita, completo di manuale e acces¬ 
sori piu coppia joystick piu circa 60 giochi più varie fotocopie 
su articoli per 4 Tl al fantastico prezzo di Lit 250000 (per 
pasaggio a sistema superiore) Mano Pellegrino - Via Cavour. 
68 - 65100 Pescara 

Vendo programma per dichiarazione redditi 740/S su cassetta 
per Tl 99/4A a Lit 20000 Telefonareore 20 Maurizio Brambilla 

- Via S. Bernardino. 8 - 22030 Longone al Segnno (CO) - Tel 
031/643185 

Occasione 1 Tl 99/4A completo manuali piu modulatore piu 
alimentatore piu cavo registratore più 2 loysticks piu libro "Im¬ 
pariamo il BASIC con ilTI 99/4A" piu modulo SSS “The attack", 
pochi mesi di vita a Lit. 250000 Telefonare la sera Simone 
Donnim - Via Accumuli. 4 - 00048 Nettuno (RM) - Tel 
06/9801724 _ 

Occasione vendo Tl 99/4A piu alimentatore piu modulatore 
più cavo registratore piu SSS Calcio più SSS Scacchi piu SSS 
Tl mvaders piu SSS extended BASIC piu cassetta di 50 pro¬ 
grammi a solo Lit. 800000 piu in regalo SSS PRK e joystick 
Domenico Gallina - Piazza Mameli. 4/7 - 17100 Savona - Tel 
019/20805_ _ 

Compro (anche separatamente) modulo extended BASIC e 
joystick per Tl 99/4A Telefonare o scrivere Luca Beccastrini - 
Via Edimburgo. 21 - 50126 Firenze - Tel 055/686981 

Vendo Tl 99/4A 6 mesi, completo di alimentatore - modulatore 
PAL • cavetto registratore • manuale a Lit 210000 Regalo 
inoltre il libro "Imparare il BASIC con il Texas" ed una cassetta 
piena di programmi Gianluca Perone - Via Città di Castello. 35 

- 00191 Roma - Tel 06/3273500 6462193 

Vendo o cambio per Tl 99/4A programmi matematici, statistici, 
contabili e finanziari completi e con ottima grafica in extended 
BASIC Scrivere o telefonare a Giuseppe Ametrano - Via Mu¬ 
rene. 83 • 84012 Angri (SA) - Tel 081/946746 

Per Tl 99/4A vendo in BASIC e BASIC esteso cassette con 4 
programmi di giochi a scelta Lit 20000 cadauna Possiedo 
anche altri programmi Silvia Masoni - Via Donzelli. 76 - 51015 
Monsummano Terme (PT) - Tel 0572/53353 
Vendo Tl 99/4A3 piu registratore piu cavetto per due registra¬ 
tori piu manuale piu due libri per questo computer piu modulo 
SSS "Parsec" piu programmi vari II tutto a Lit 450000 Pietro 
Taormina - Via F sco Speciale. 13 - 90129 Palermo - Tel 
091/481031 

Vendo Tl 99/4A, con alimentatore, modulatore, interfaccia re¬ 
gistrato re più modulo Carwars più joystick Tl piu 2 cassette 
della Texas piu 30 programmi Valore complessivo Lit 450000 
Vendo tutto a Lit 400000 Riccardo Romagnoli - Via Giovanni 
XXIll 6 12011 BS Dalmazzo (CN) - Tel 0171/760482 

Vendo Tl 99/4A completo di cavo registratore, modulatore. 2 
moduli SSS (Moon mine e Calcio), istruzioni in italiano Acqui¬ 
stato da 2 mesi, ha ancora la garanzia da timbrare, piu coppia 
joystick Lit. 230000 Marcello Passerini - Corso Manzoni. 100 - 
27100 Pavia - Tel 0382/26509 

Attenzione' Vendo per Tl 99/4A cavo di Interfaccia per casset¬ 
te (originale), per l'uso con un registratore a cassette (CSI) Il 
cavo è ancora sigillato Questo a sole Lit 15000 più eventuale 
spedizione Lit. 1800 Giuseppe Deidda • Via G B Tuveri, 31 - 
09039 Villacidro (CA) 

Vendo schemi elettrici per Tl 99/4A - 1 manuale schemi con¬ 
solle. box espansione, sintetizzatore vocale, interfaccia RS232. 
espansione 32 Kbyte. con dati a Lit 30000 più spese di spedi¬ 
zione contrassegno Mario Giacometli - Via L Da Bagnomari¬ 
no. 6-40132 Bologna 

Cambio Texas Tl 99/4A completo di alimentatore piu modula¬ 
tore piu cavo per registratore più manuale per l'uso con acces¬ 
sori per Spectrum (joystick interfacce 1 o 2 o stampante Seiko- 
sha) Sandro Boccolmi - Via Gramsci, 1 - 06023 Gualdo Tadino 
(PG) - Tel. 075/915161 

Cambio con Apple compatibile Tl 99/4A piu mmimemory, ext 
BASIC, libro su Tl 99.2 cassette di programmi, manuali e imballi 
originali Tl 66 più radio Philips Di207 (AM - FM - VHF) con 
cuffia più cifra da concordare. Paolo Ferrarlo • Via Valsugana. 
40 - 20052 Monza (MI) - Tel 039/746214 


Varie 


Se possiedi un Apple, uno ZX Spectrum o un Commodore 
allora l'MN Universa! Club è quello che fa per te. Offriamo idee, 
scambi esperienze ecc Scrivici e riceverai gratuitamente il 
nostro bollettino. Massimo Negrisoli - Via Suzzani, 276 - 20162 
Milano 

Vendo consolle Intellevislon più 12 cassette quali Chess - 
Soccer - Lock'n’chase - per un valore di Lit 1 000 000 a Lit 
700 000 II tutto m confezione originale e con istruzioni in ita¬ 
liano Gianluigi Montironi • Via Castelletta 43 - 62010 Fonte- 
spina (MC) - Tel 0733/70274 
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Vendo, cambio programmi originali Inglesi ed americani per 
Commodore 64 (olire 1000). per Speclrum e per Apple ultime 
novità alta risoluzione grafica vendi interfaccia joystick ed in¬ 
terfaccia Centronics Maurizio Carola • Via Lilio. 109 - 00143 
Roma - Tel 06/5917363 

Vendo modulo computer Lucky Inlellevlalon piu una cassetta 
gioco programmabile a Lil 200000 Francesco Giulietii - V le 
Sonnmo. 102 • 58100 Grosseto - Tel 411304 
Attenzione per IBM PC si realizzano programmi peraonalizzalt 
di gestione dei magazzino ogni programma sard steso m base 
alle esigenze deli utente Prezzi interessantissimi Gaetano Ro¬ 
berto • Via A Boccio. 2 - 80035 Noia (NA) • Tel 061 '8236649 

Vendo Atari 2600 video computer sistem piu 3 cassette Space 
invader, Miss Pacman e Sorcerer's apprentice comprato Nata 
le'83. Il tutto per Lit 250000 Telefonare ore pasti TizianaCruto 

• Via Merlino. 2 • 10090 Sangano (TO) ■ Tel 9085257 

Vendo o cambio centinaia di programmi per C8M 64. Spec¬ 
lrum VIC 20 Cerco ogni genere di software per Spectravideo 
SV 328 Mano Puccion, - Via A del Pollaiolo 13/E 50142 

Firenze • Tel 055/710205 

Disponendo di personal computers IBM, Apple e NCR scambio 
programmi ed esperienze con chiunque sia seriamente inte¬ 
ressato. anche se principiante Rispondo a tutti Franco Van¬ 
dali) - Via G B Morgagni. 32 - 20129 Milano -Tel02/20923 

Per Sega 3000 compro, cambio, vendo software Scrivere o 
telefonare ore pasti Enrico Battiati • Via P E Giudici. 24-90127 
Palermo - Tel 091/239906 

Cambio motto software per i computer Sharp M260A/B/K Ho 
molti programmi di mgengena per il B e per l’A Ho molte Utilities 
e linguaggi Scrivete o telefonatemi in ufficio Sempre valido 
Davide Ardizzoia - Via Roma - 18016S Bartolomeo al mare (IM) 

• Tel 0183/401830 

Siamo pazzi' Svendiamo lutto II nostro software a Ut 4000 e 
possediamo piu d> 500 programmi Eccezionale offerta prendi 
5 e ne paghi 3 Affrettati potrebbe tornarci la nostra lucidità 
Lista gratis Gaspare Crispino - Via Giovanni XXlii. 6 - 80020 
Fratta minore (NA) 

MIO Olivetti è nato H 1 Computer Club tutto Italiano Nessuna 
tassa di iscrizione, solo buona volontà per scambiare* pro¬ 
grammi. idee, esperienze, per conoscere, capire, fare lutto ila 
liano. Franco Gonzato - Corso Fogazzaro 174-139 - 36100 
Vicenza - Tel 0444/36669 

Aiuto' Cerco programmi di giochi t vari per Olivelli M20 Tele 
fonare ore pomeridiane e chiedere di Antonio per accordo sul 
prezzo Antonio Moro - Via DeGaspen 56 - Casola (VI) • Tel 
042 4/83027 _ 

Centro didattico di matematica diretto dal prof Lucio Gaspan- 
no cerca interessali a scambio materiale didattico senza fini di 
lucro Si accettano unicamente programmi su disco o nastro 
per Commodore ed Apple Lucio Gasparmo • Via Ronchi. 39 - 
20134 Milano • Tel 02/2151470 

Vendo VCS Alari pm jmsticks piu paddle piu tastiere e 13 
cassette (oppure singole cassette) a Lit 450000 (metà prezzo 1 ) 
Preferibilmente zona di Bari Mano Ferrari • 70121 Bari - Tei 
080/212469 

Vendo monitor a 9“ e a 12" a fosfori verdi Vendo mitre Hanta- 
re* 14" colon con interfaccia per Apple II Telefonare ore uffi¬ 
cio prezzi da concordare Walter Franceshi - Via Binel. 4 
11020 Donnas (AO) - Tel 0125/82374 

Vendo Intellevlslon piu 20 cassette il tutto come nuovo, a Lit 
600000 trattabili Inoltre vendo ZX8i i Kbyte con registratore 
completo p«u 2 manuali a Ut 90000 Dano Solari - Via Statetla. 
12 00100 Roma Tel 06/5285113 

Vendo Casio PB300 stampante incorporata con manuale uso 
m italiano. 1 mese di vila telefonare dalle 19 alle 20 3Q Fabrizio 
ni - Via Roma, 5 • 20040 Aicurzio (MI) • Tel 039/601725 

Cambio base Intellevlslon per ZX Speclrum 48 Kbyte m ottimo 
stato 6 mesi di vito Allego 4 cassette Dracula • Tennis - Poker 
Advanced Dungeons II lutto m confezione originale, poco 
usato Vincenzo Montone • Via Salerò. 12 - 84043 Agropoti (PA) 

- tei 0924/824820 (ore pasti) 

Desideriamo formare un club Alari per scambio software ed 
idee Per ulteriori chiarimenti telefonare ore pomeridiane (iscri¬ 
zione gratuita') Raffaele Admolfi - Via Lembo. 40 84100 Sale» 
no • Tel 089/351724 

Vendo per Olivetti MIO undici esercizi più lezione BASIC regi 
strati su cassetta e un programma dimostrativo più lezione 
MM10 registralo su cassetta tutto a Lit 8000 in regalo 2 ma¬ 
nuali Salvatore Purgato Corso Europa. 26 - 81030S Marcel 
imo (CE) Tel 081/8121276 


Vendo Acoro Aloni un anno di vita espanso 12 Kbyte piu 16 
Kbyte ROM piu 4 videogames Ut 460000 p>u manuale di istru¬ 
zioni Andrea Nota. ) - Via Chitoni. 1 /00 • 42100 Reggio Emilia 
Tel 0522/554652 

Scambio 400 programmi di ogni genere esclusivamente con 
possessori dell'unità disco. Alberto Casale • Corso Telesio. 57 - 
i0i46Tor.no Tel 011/722050 _ 

Vendo Sega SC 300 mai usato Vendo plotter pnni Sega SP 400 
4 colon, anche separati Vendo Inoltre monitor Philips per Se¬ 
ga Scrivete per stabilire prezzo, comunque esso sara di estre¬ 
mo favore Aldo Santiangeli - Via S Maria 4 • 62024 Matetica 
(MC) - Tel 0737/82344 

Vende per c ompuie» N f le seguenti schede l • 380 Lit 50000 
LX382 Li! 80000 LX386 LH 80000 LX390 L.t 100000 - LX391 
Li! 30000 - LX392 LU 50000 - LX529 piu LX530 p.u LX547 Lil 
300000 Monitor 12 fosfori verdi a Ut 200000 Configurazione 
perCPMaLil 300000 Renato Severm • Via Casanam 23 31030 
Biancade(TV) TEI 0422/790136 


Compro floppy disk a poco prezzo da Lit 100000a Lit 150000 
Amerigo Cuna - Via Iglesias 29 - 20129 Milano • Tel 2575867 

Cambio/vendo programmi in BASIC a sotto CP/M 2.2 per 
Sharp MZ-80B Scrivere o telefonare per il listino prezzi Stefa 
no Lazzaro - Via Monte Sabotino 2 • 35141 Padova • Tel 
049/22675 

Vendo enciclopedia di Elettronica ed Informatica Jackson 8 

volumi rilegati a lit 200000 Scrivere a Angiolo Tavanti • Via 
P od gora. 15/6 • 40131 Bologna (BOi 

Vendo video computer sistem by Atatri CX 2600 piu cassette 
Combat - Asteroids • Space Invaders • Missile Command cor¬ 
redato di joystick al prezzo d* Lit 330000 Telefonare ore pasit 
Paola Terno - Via S Croce. 1452 -30125 Venezia - Tei 717549 

Vendo computer N.E. completo schede CPU • interfaccia regi¬ 
stratore - interfaccia video • interfaccia stampante - RAM dina¬ 
mica 32 Kbyte RAM statica 8 Kbyte monitor fosfori verdi • 
tastiera alfanumerica Prezzi stracciati* Maurizio Castiglioni - 
Corso Palermo 20 - 10152 Tonno - Tel 011/850075 

Vendo per computer tascabile Casio PB 100 una cariuccia di 

espansione RAM c una interfaccia per registrare su cassetta e 
un gadget per alimentarlo dall'esterno Telefonare ore 14 00 
Silvio Caggia - Via Bordighera 6 • 10135 Torino - Tel 
011/341853 __ 

Per passaggio a sistema superiore vendo Sharp PC 1500 piu 
interfaccia stampante CE 150 p<u registratore Sharp CE 152 a 
Lit 700000 II tutto ha tre mesi di vita, con manuali originali in 
italiano Telefonare ore 2000 Sergio Bailestrazzi - Via Vasco 
De Gama. 35 40131 Bologna - Tel 051/350723 

Compro riviste Personal Software dal nr 1 al nr 9 e Commodo¬ 
re Computer Club dal nr t al nr 4 Giuseppe Coffano - Via 
Fiacco. 5 - 10024 Moncalier. (TO) Tel 011/645923 

Vendo videogioco Alari con le cartucce F lerresinal. Asteroidi 
Pac man. Phoenix. Missile Command. Breakout Combat. Indy 
500 piu volanti nuovissimi piu trasformatore Tutto a Lit 345000 
trattabili Giulio Frigo ■ Via Baiai 78/c • 07046 Porto Torres 

Tel 079/502381 _ ___ 

Cambio Music Editor piu Music 4.2 funzionanti con Simon s 
BASIC (14 comandi addizionali) oppure gioco (Frogger Quix 
Pit stop, ecc ) su cassetta Scambio con uno di questi anche Pel 
speed Fabio Barbon Via Vitlaraspa. 27/13 - 36061 Bassano 
Del Grappa - Tel 0424/20329 

Vendo il libro "Giochi con il 6502 - Tecniche di programmazio¬ 
ne avanzata" di Rodnay Zaks Nuovissimo mai usato Esempi 
Slot machine - Eco (Simon) - Black Jack (Mastermmd) ed aitr. 
Telefonare ore pasti Andrea Canestri • Via Ascari 271 - 00142 
Roma TEI 06/5036634 

National Software vende eccezionali giochi e programmi di 
utilità a prezzi incredibili Lit 10000 ogni 4 giochi e Lit 5000 
ogni utility Scrivere o telefonare a Paolo Di Mauro - Via Bertte- 
ri, 1 - 20146 Milano - Tel 02/471803 

Vendo Inteilevtslon perfette condizionicon 3cassette m regalo 
a prezzo davvero favorevolissimo Vendo anche separatamen • 
te Beamnder Safecracker. Chess Wormwhomper. Armour 
barile Astrosmash Prezzi bassissimi* Massimo Villa Via G 
Palermo 45 - 80131 Napoli - Tel 081/464504 

Vendo drive 5.25". tutte le schede dello Z80 N.E. piu schede 
aggiuntive come Speech synthesis. grafica sovrapposta con 
640x288 punii e molle altre proposte interessanti II tutto corre¬ 
lalo d* software Marco Sudetti - Via Martin della Libertà. 52 - 
10040 Slupmig. (TO) Tel 011/3580200 

Vendesi Colecovitlon piu modulo Turbo p*u 3 cartucce (Lady 
Bug Mouse trap. Turbo) piu joystick a L>t 400000 Oppure si 
cambia con stampante Seikosha 80 colonne, se buon prezzo 
anche disposto ad acquistare Solo Toscana Telefonare ore 
pasti Valerio Borgioli • Via Brodolmi. 5 • 50050 Limites/Arno 
(FI) Tel 057128 

Vendo piastra Lemon II piu tastiera 53 tasti piu alimentatore piu 
joystick il tutto perfettamente funzionante con numerosi pro¬ 
grammi su cassetta •> tutto a Lit 700000 e numerose riviste 
Antonio Stabellmi Largo Francia. 59 • 10090 Tonno - Tel 
011/9581637 


Gradirei entrare m contatto con possessori di personal com¬ 
puterà con modem m Milano per approfondimento esperienze 
di comunicazione Dispongo di computers IBM App)e e NCR. • 
primi due corredali di sufficiente software di comunicazione 
Franco Vandelli - Via G B Morgagni. 32 - 20129 Milano - Tel 
02/209231 

Cerco manuale In Italiano del Simon's BASIC Tratto solo con 
Milano Telefonare ore pasti Roberto Gallone - Via Monte 
Cervino, i - 20021 Bollate (MI) • Tel 3502463 

. i ricevitore Satellil 3000 0 30Mhz AM LSB USBpiuFM 
sintonia digitale Cambio con microdnve piu interfaccia 1 ocon 
stampante 80 colonne per Spectrum Cedo NE LX380 - 81 -82 
83 84 - 85 86 a LU 230000 Vincenzo Baraschino - Via F 
Maria Briganti 396 80141 Napoli Tel 7803890 

Cerco programmi per la scuola di ogni tipo Posseggo mollissi¬ 
mi programmi che sono disposto a scambiare Mandatemi la 
lista o telefonatemi Carlo Bocchetto • Via Einaudi, 1 - 20093 
Cotogno Monzese (MI) - Tel 2534794 

_ Vendo accessori per tutti (computer cassette, dischetti. 

— nastri di stampa, modulistica cavi interfacce Scrivere ■ 
5 indicando •! tipo di computer Giuliano Flonan - Via ® 
■ Bettin. 32 - 31053 Zero B (TV) - Tel 0422/97748 ■ 

Cerco terminale Teielype in ottime condizioni a basso prezzo 
(preferibilmente in zona Roma) Scrivere a: Francesco Rea: Via 
Carlo Sforza. 10 - 54031 Avenza (MS) 

Cambio software di qualsiasi genere su disco Alla vostra lista 
risponderò con la mia Maurizio Piraccim - Viale dei Pini 8 - 
47023 Cesena (FO) • Tel 0547/26958 

Vendo solo zona Milano Sega SC 3000. BASIC MIA. 2 cartucce, 
corso BASIC, joystick a Lit 400000 Scrivere a Pasquale Talen¬ 
to - Viale della Repubblica. 1 - 20011 Corbella (MI) 

Vendo DAI personal computer causa passaggio ad altro siste¬ 
ma Vera occasione Tommaso Virnicchi-Via Cales. 17 • 81042 
Calvi Risorta (CE) - Tel 0823/873745 

Causa passaggio a sistema Commodore 64 vendo videogiochi 
Atari CX2600 consolle piu 9 cartucce tipo Poie position. Van- 
guard. Pacman. Jungle hunt e altre' Il tutto a Lit 450000 Per 
informazioni Davide Bonino - Corso Nizza. 50 • 12100 Cuneo 
(CN) - Tei 0171/51158 

Vendo VCS Alari con sei cassette a Lit 180000 (superofferta), 
inoltre scambio software per io Spectrum ultime novità impor - 
tale dall'Inghilterra Decathlon. Pittali II ecc Rispondo a tutti 
Mauro Di Maio - Via Giariz 2 ole. 6 - 34148 Trieste - Tel 
040/567540 (dopo le 20) 

Cambio software solo su listato per tutti t personal piu diffusi e 
di tutti i tipi Richiedere lista gratis specificando il sistema 
Mandatemi la vostra lista qualunque sia il vostro computer 
Fabrizio Nardi - Via Bonavia. 6 - 40068 San Lazzaro di Savena 
(80) - Tel. 465084 _ ' 

Cerco programma Totocalcio perla riduzionedeisistemi stati¬ 
stico. ad errori ecc Mi interessa sia la versione BASIC che in 
L M Posseggo 300 programmi e do in cambio una cassetta 
C-90 piena di programmi di utilità tra cui un compilatore miglio¬ 
re detl'FP compite» Per informazioni rivolgersi a Andrea Sciar- 
rone - V»a A Burlando. 22B/4 - 16137 Genova - Tel 
010/812528 

Sto cercando disperatamente il manuale edito dalla “3 Emme 
Informatica" di Mostie sul mio computer Colour Genie EG 
2000 Mi interessano anche programmi per detto computer 
Grazie Gian Piero Pagani - Via Varese. 61 -21047 Saronno 
(VA)___ 

Cambro programmi di qualsiasi tipo so>o regione Marche In 
viare lista o contattare telefonicamente ore pasti Marco Cmgo- 
lan» - Via Bevagna. 12 - 62019 Recanati (MC) - Tel 
071/9841699 _ 

Vendo modulo computer compatibile con consolle Intellevi- 

sion ancora imballato, provvisto della cartuccia gioco "Scooby 
Doo maze Chase" Telefonare ore pasti Alberto Bove - Via 
Ptadena. 8 - 20097 S Donato Milanese - Tel 02/5279027 

Vendo a Lit 1500 cadauno super listati per Apple Commodore 
64 VIC 20. TI 99/4A Ogni 5 listati acquistati uno in omaggio 
Scrivere per chiedere liste e ulteriori dettagli a Sergio Remon- 
dmo - Via De Gaspen 3 - 10015 Ivrea (TO) 

Vendo Atarl VCS con 4 cassette (Bowling. Riddle of Ihesphmx, 
Combat. Grand pnx) solo zona Napoli e provincia Per informa 
/ioni rivolgersi a Roberta Battista • Via Nevio. 102/E • 80122 
Napoli Tel 081/689562 

Vendo Shlne 32 Kbyte con ROM BASIC plus, mappa memoria 
assemblatore, text editor Totocalcio, cassetta con numerosi 
programmi a Lit 550000 Telefonare a Alberto Cavallari - Piaz 
za San Giorgio. 13 - 30030 Chingnago (VE) - Tel 041/917208 

Vendo software per ingegneria civile oppure cambio con hard¬ 
ware di pari valore II package è composto da 18 programmi 
essi sono completamente autonomi l'uno dall'altro Vendo an¬ 
che singolarmente Giosuè Cattano • Via L Guercio. 150 - 
84100 Salerno • Tel 089/399750 

V»*ndo cassette BASIC per Sharp MZ-700 11 il 50000 Telefo¬ 
nare ore pasti Nicola Bellettien - Via A Righi 34 • 50047 Prato 
(FI) - Tel 055/583034 
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Compro Popeye per Maltei a Lit 45000. per Atan 800XL a Lit 
60000 e registratore a Lit. 60000 con cassette gioco Vendo 
cartucce per Intellevision a Lit. 30000 massimo (Burgertime. N 
Blast) compro OBert per Mattel o Atan a Lit 45000 o Lit 60000 
Lello Danzico - Via Mastio Della Scala. 6-37134 Verona - Tel 
045/583360 

Vendo cassetta con 20 programmi per Sega SC 3000 a Lit 
20000. Affrettatevi! Aspetto le vostre lettere e/o telefonate. An¬ 
drea De Luca - Via 4 Giornate. 37 • 80058 Torre Annunziata 
(NA) • Tel 081/8617944 _ 

Vendo Apple II compatibile con drive, controller, monitor fosfo¬ 
ri verdi 12". espansione 16 Kbyte. espansione Z80 e 100 pro¬ 
grammi con manuali a Lit. 1750000. Jose Falzone • Via Bello- 
mo, 91 - 93017 S Cataldo (CL> 

Vendo Atari VCS 2600.10 cartucce. Supercharger per caricare 
su Atari le cassette con registratore. 4 cassette per detto com¬ 
puter. il tutto a Lit. 350000. Telefonare ore pasti Ariberto Riva 
Via Musco. 6 - 20157 Milano - Tel 3555897 

Vendo al miglior offerente VCS Atari con sei cassette e compii 
ter Sinclair ottimo stato con stampante Sinclair e 700program¬ 
mi super Scrivere per le offerte Sabrina Sciuca - Via Catullo. 2 
- 34100 Trieste. 

Cambio quasi 400 programmi per Spectrum con stampante 
Seikosha 6P50S Telefonare, tratto solo zona Roma Massimo 
Vailetta • Via Mare di Bering. 20 - 00122 Ostia (RM) - Tel 
06/5664886 _ 

Vendo programmi Sharp MZ700 Scrivere per catalogo e prez 
zi. Vasta biblioteca giochi, utilità, gestionali Floppy e stampan¬ 
te Gaetano Tulotta - Via Leopoldo Traversi. 35 - 00154 Roma - 
Tel. 06/5781348 

Cambio consolle Intellevision con 9 cassette tra le migliori pei 
un valore di Lit 800000 con floppy disk 1541 Commodore 64 In 
più offro 100 stupendi programmi in L.M per CBM 64 Paolo 
Bertoli - Via G. Bruno. 60 - 20099 Sesto San Giovanni (MI) - Tel 
02/2474814 

Vendo Alari VCS2600. alimentatore, 4 joystick. 2 paddle e 18 
giochi Pac-man. Pittali, Dig-dug. River raid. ecc Tutto in 
buono stato a Lit. 865000 trattabili. Maurizio Usardi - Via Alceo 
29 - 00124 Roma - Tel 06/6095859 

Vendo Oric 1 16 Kbyte nuovo, mai usato per mancanza di 
tempo, con numerose riviste e listati Prezzo convenientissimo 
Telefonare ore 18-20. Angelo Riva - Piazza Bibbiena. 1 - 20136 
Milano - Tel. 02/8395331 

Dispongo di 500 programmi per Sharp MZ80K/A/B importati 
dall'estero e introvabili in Italia Routmes. utility, linguaggi. BA 
SIC estesi Richiedi il catalogo per scambio o vendita Letizia 
Bizzarri - Via Lago Isoletta. 31 - 65100 Pescara • Tel 
085/60672 

Vendo un floppy disk e un videogame a scelta per Lit 20000 
inoltre vendo altro software interessante a prezzi convenienti 
Maurizio Coccorese - Via Gentile. 108/D - 70126 Bari - Tel 
080/491374 _ 

Vendo Alari 2600. Asteroids. Combat. Fathom. Fishmg derby 
Outlaw. Video chess. Air sea battle. Peles soccer. Batilezone 
Video pmball. usati pochissimo a metà prezzo II tutto a Lit 
480000 Alessio Vecchio - Via Alabastro. 47 - 58100 Grosseto - 
0564/491270_ 

Cerco possessori di Sega SC 3000 per scambio programmi su 
cassetta, cartridge e opinioni sul linguaggio macchina Marco 
Sola • Via Secchia. 38 - 41056 Savignano sul Panaro (MO) 
T el 760792 _ 

Occùsiomssima' Vendo stampante grafica Seikosha GP-80M 
con software ed accessori usata pochissimo. Inclusa mtei 
faccia per Apple. Telefonare ore pasti. Ezio Martelletto - Via G 
Mameli. 24 - 36100 Vicenza - Tel. 0444/22097 

Vendesi programmi per Spectrum. VIC 20. Commodore 64 
Invio gratis della lista Accetto anche scambi Alessandro Casi¬ 
ni - Via G. Boccaccio. 13 - 50100 Firenze - Tel. 055/52208 

Vendo interfaccia joystick Tecnolecx programmabile (qualun 
que prova) a Lit. 70000 Gianluca Ballocci - Via S. Gottardo. 75 
20052 Morata - Tel 039/367709 _ 

Sta nascendo anche il Liguria una sede della Ceda! - Ass. 
amici del Micro & Personal Computer Iscrivendovi avrete ac¬ 
cesso alla biblioteca del club, per ora dedicata al solo CBM 64 
Scrivete a: Marco Colombini - Via Lorenzo Costa. 4/16 -16136 
Genova 

Vendo Sharp MZ700 più videogioco Atari con 15 cartucce in 
blocco a Lit 550000. tutto in ottimo stato, oppure cambio con 
VIC 20 più registratore C2N più 5 giochi Telefonare ore pasti (e 
in tanti') Andrea Jose - Via Degli Ulivi. 16 - 00047 Grottaferrata 
(RM) - Tel 06/945891 
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Nicole Bréaud-Pouliquen 
LA PRATICA DELL’APPLE 

“Il Sistema APPLE II", il "BASIC Applesoft" 
il disegno e la grafica: arricchiti da esempi e esercizi. 
130 pagine L. 10.000 
Codice 3410 

F. Franceschini - F. Paterlini 
Voi s il vostro Commodore 64 

Uno strumento fondamentale per la comprensione e 
programmazione del Commodore 64. Con consigli, 
programmi testati, glossario e utili accenni di BASIC. 
256 pagine B L. 22.000 Codice 347 

Alan Miller 

PROGRAMMI SCIENTIFICI IN PASCAL 

Un'opera base per chi desidera costruirsi una 
"libreria" di programmi in grado di risolvere i più 
frequenti problemi scientifici e ingegneristici. 

372 pagine L. 25.000 
Codice 554P 

Carmine Elefante 
L'home computer TI/99-4A 

Il BASIC, il BASIC Esteso e il microprocessore 
dell'home computer della T.l. Con programmi di 
utilità e svago. 192 pagine L. 15.000 
Codice 343B 

Giacomino Baismi - Gió Federico Baglioni 

IL FORTH PER VIC 20 E CBM 64 

La programmazione in FORTH e la sua 
implementazione sul Commodore VIC 20 e CBM 64. 
150 pagine L. 11.000 
Codice 527B 


Franco Filippazzi • Giulio Occhini 

VOI E L'INFORMATICA 

L'opera che il manager moderno non può ignorare. 
In 100 tavole: gli strumenti dell'Informatica. 
l'Informatica e l'Azienda, realtà e prospettive 
tecnologiche... 

116 pagine L. 15.000 
Codice 526A 

Roland Dubois 

CAPIRE I MICROPROCESSORI 

Un fantastico viaggio alla scoperta del "cervello" 
elettronico: la funzione del microprocessore, 
delle memorie ROM e RAM, delle interfacce... 

126 pagine 1 . 10.000 
Codice 342A 

Gaetano Marano 
77 PROGRAMMI PER SPECTRUM 

Dalla Grafica alla Business Grafica, dalla musica 
alle animazioni, dai giochi all'elettronica... tutte 
le possibilità offerte dal più piccolo dei computer. 
150 pagine a colori L. 16.000 
Codice 555A 

Rita Bonelli-Daria Gianni 
ALLA SCOPERTA DEL VIC 20 

Un testo chiave per imparare a conoscere e usare 
uno dei Personal del momento. 

308 pagine L. 22.000 
Codice 3380 

Cassetta Programmi L. 15.000 
Floppy Programmi L. 25.000 
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Libri firmati JACKSON 


Pierre Lotigie-Laurent 

UN PERSONAL COMPUTER FIRMATO IBM 

Il libro offre una panoramica completa sul 
Personal Computer IBM Comincia col descrivere 
l'hardware, passa poi alle due applicazioni, alla 
programmazione e ai sistemi operativi. 

Illustra le diverse configurazioni che si possono 
realizzare per soddisfare esigenze di utenti diversi, 
e finisce con un breve manuale per l'installazione 
e l'uso. 

Una preziosa prefazione all'Edizione Italiana 
integra ed aggiorna l'edizione originale 
L'immagine che ne esce, grazie allo stile e al 
linguaggio, è quella di un'informatica abbordabile 
e cordiale, pronta a venire in aiuto sul lavoro e a 
istruire e divertire in famiglia. 

152 pagine 

Codice 404H L. 15.000 


Stanley R. Trost 

PROGRAMMI UTILI PER IBM PC 

Il libro presenta una serie di oltre 65 programmi 
per il Personal Computer IBM. ampiamente 
collaudati e pronti per l'uso 
Dopo una breve introduzione, che vi metterà in 
grado di usare i programmi proposti, seguono i 
programmi stessi suddivisi per capitoli: finanza e 
bilancio familiare, gestione commerciale, beni 
immobili, analisi di dati, registrazione di dati, 
esercizi di matematica. 

I programmi sono da "usare", e il libro non ha la 
pretesa di insegnarvi la programmazione in 
BASIC, ma proprio l'uso dei programmi vi porterà 
gradualmente, e quasi automaticamente, ad 
apprenderne le tecniche fondamentali; può essere 
un buon punto di partenza per diventare voi stessi 
programmatori. 

E proprio per aiutarvi in questo, nelle Appendici è 
presentata una serie di sottoprogrammi di uso 
generale, usati dai programmi del libro, e vi viene 
spiegato con facili esempi come inserirli nei vostri 
nuovi programmi per risparmiare tempo e fatica. 
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Collegamenti e progetti 
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